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#include <stdio .h> 
#include <sys/time.h> 

#ifdef MEMORY 
#include <Tnalloc.h> 
tendif 



/* If one wants memory statistics for SUN */ 



#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 



"blist .h" 
"gnl .h" 
"gnlmint .h" 
"bbdd.h" 
"libc_mem.h" 
"libc_api.h" 
"gnllibc.h" 
"gnloption. h" 



#include "blist . e" 



/* 

/* EXTERN */ 

/* 

extern GNL_ENV G_GnlEnv; 

extern LIBC_PIN GnlGetPinCellWithName {) ; 

/* . 



/* 



/* SetGnlVarLineNumber 
/* 



* 



/ 



/* GnlFreeVar */ 

/* 

/* Physical destruction of the Gnl Variable *Var' */ 

/*: : 

void GnlFreeVar (Var) 
GNL__VAR Var; 

{ 

free (GnlVarName (Var) ) ; 
if (GnlVarLocation (Var) ) 

free (GnlVarLocation (Var) ) ; 
free (Var) ; 



} 







/* This procedure builds the string representing the line number where */ 
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/* the var 'Var' is defined and stores it in the field ' GnlVarLocation ' */ 
/* of the Var. This string can generally represent several line numbers */ 
/* of different source files. */ 
/* 

GNL_STATUS SetGnlVarLineNumber (Var, Line) 
GNL_VAR Var; 
int Line; 

{ 

char *CompLocString; 
char *LocString; 



} 



if ( (LocString = (char*) calloc (128, sizeof (char) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 

sprintf (LocString, "%d Line); 

if ( (CompLocString = (char*) 

calloc (strlen (LocString) +1, sizeof (char) ) ) == mJLL) 
return (GNL_MEMORY_FULL) ; 

sprintf (CompLocString, "%s", LocString); 

free (LocString) ; 

SetGnlVarLocation (Var, CompLocString) ; 
return (GNL OK) ; 



/* 

/* GnlVarLineNumber */ 
/* 

/* This procedure extracts the line number of the var 'Var' from the */ 
/* location string stored in field ' GnlVarLocation ' . By calling this */ 
/* procedure we assume that the string stores only one integer (should */ 
/* have been set by 'SetGnlVarLineNumber' above) . */ 
/* 

int GnlVarLineNumber (Var) 
GNL_VAR Var; 

{ 

char LocString [128] ; 

int i ; 

int Line ; 



if ( 1 GnlVarLocation (Var)) 
return (0) ; 

i = 0; 

while ((i<strlen (GnlVarLocation (Var)) 

(GnlVarLocation (Var) [i] ! =^ • '))) 

{ 

LocString [i] = GnlVarLocation (Var) [i] ; 
i++; 

} 
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LocString[i] = ' \0 ' ; 
Line = atoi (LocString) ; 
return (Line) ; 

} 



/* */ 

/* GnlResetVarFunction */ 

/* */ 

/* Reset the field 'GnlVarFunction' of the variable 'Var' . */ 

/* */ 

void GnlResetVarFunction (Var) 
GNL_VAR Var; 

{ 

SetGnlVarFunction (Var, NULL) ; 

} 



/* */ 

/* GnlPunctionPree */ 

/* */ 

/* Procedure which physically free the structure pointed by Function */ 

/* which is of type GNL_FUNCTION_REC */ 

/* */ 



void GnlFunctionPree (Function) 
GNL_FUNCTION Function; 

{ 

free ((char*) Function); 

} 



/* 

/* GnlSystemGetTimeOfDay */ 
/* 

void GnlSystemGetTimeOfDay (Seconds, Microseconds) 

long * Seconds; /* seconds since Jan. 1, 1970 */ 

long ^Microseconds; /* and microseconds */ 



struct timeval tp; 
struct timezone tzp; 

(void) gettimeofday (Sctp, &tzp) ; 
*Seconds ~ tp.tv_sec; 
♦Microseconds = tp.tv^usec; 

} 



/* */ 

/* GnlTimeGetAbsoluteTime */ 

/* */ 

/* returns the elapsed time in seconds since January, 1, 197 0 */ 

/* */ 

long GnlTimeGetAbsoluteTime 0 
{ 

long Seconds; 
long Microseconds; 
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GnlSystemGetTimeOfDay (^Seconds, ScMicroSeconds ) ; 
return (Seconds) ; 

} 



/* */ 

/* GnlSystemGetLocalTime */ 
/* */ 

/* Seconds (0 - 59) */ 

/* Minutes (0 - 59) */ 

/* Hours (0-23) */ 

/* Day : day of month (1-31) */ 

/* Month ; month of year (0-11) */ 

/* Year : year - 1900 */ 

/* */ 



void GnlSystemGetLocalTime (Year, Month, Day, Hours, Minutes, Seconds) 
int *Year; 
int * Month; 
int *Day; 
int *Hours; 
int *Minutes; 
int *Seconds; 

{ 

struct tm *CurDate; 
long Time; 



Time = GnlTimeGetAbsoluteTime (); 

CurDate - local time (&:Time) ; 
*Year = CurDate- >tm_year; 
*Month = CurDate- >tm__mon + 1; 
*Day = CurDate- >tm_mday; 
*Hours = CurDate ->tm_hour; 
*Minutes - CurDate ->tm_min; 
* Seconds = CurDate- >tm_sec; 

} 



/* */ 

/* GnlPrintDate */ 
/* */ 

/* Prints the date and time under format "04/20/99 ® 11:15:30" in the */ 

/* file 'File' . */ 

/* */ 

void GnlPrintDate (File) 
FILE *File; 



( 

int Year; 

int Month; 

int Day; 

int Hours ; 

int Minutes ; 

int Seconds; 



GnlSystemGetLocalTime (S:Year, ScMonth, &Day, &Hours, &Minutes, ficSeconds) ; 
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fprintf (File, "% , 2d/% . 2d/%d @ % . 2d : % , 2d : % . 2d" , Month, Day, Year, 
Hours, Minutes, Seconds) ; 



} 



/* */ 

/* GnlVarlsIO */ 

/* 

/* Returns 1 if the current var 'Var' is either a primary INPUT, or a */ 

/* primary OUTPUT or a primary INOUT */ 

/* 

int GnlVarlsIO (Var) 
GNL_VAR Var; 

{ 

if (GnlVarDir (Var) == GNL_VAR_ INPUT) 
return (1) 

(Var) == GNL VAR OUTPUT) 



} 



if (GnlVarDir 
return { 1 > 

if (GnlVarDir 
return (1) 

return (0) ; 



(Var) GNL VAR INOUT) 



/* */ 

/* GnlVarlsPrimary */ 

/* */ 

/* Returns 1 if the current var 'Var' is a primary var that means which */ 
/* cannot be removed at anytime {except for GNL_VAR_LOCAL__WIRING when */ 
/* they are re-injected during a hierarchycal flattening) . */ 
/* 

int GnlVarlsPrimary (Var) 
GNL_VAR Var; 

{ 

if (GnlVarDir (Var) GNL_VAR_INPUT) 
return ( 1 ) 

(Var) GNL VAR OUTPUT) 



} 



if (GnlVarDir 
return (1) 

if (GnlVarDir 
return (1) 

if (GnlVarDir 
return (1) 

return (0) ; 



(Var) GNL_VAR_INOUT) 

(Var) GNL VAR LOCAL WIRING) 



/* */ 

/* GnlVarRangeSize */ 

/* */ 

/* Function returning the size of the range of the var War* . A single */ 
/* bit var has a size range of 1 and for instance a bus (3 downto 0) */ 
/* has a range size of 4 . */ 
/* */ 

int GnlVarRangeSize (Var) 
GNL_VAR Var; 

{ 



A-LIBC-5 



gnlutil.c 



if {GnlVarMsb (Var) >= GnlVarLsb (Var) ) 

return (GnlVarMsb (Var) - GnlVarLsb (Var) + 1) ; 
else 

return (GnlVarLsb (Var) - GnlVarMsb (Var) + 1) ; 

} 



/* */ 

/* GnlDirName */ 



/* Returns a verilog- semantic string corresponding to the direction of */ 
/* the var 'Var' , */ 

/* */ 

char *GnlDirName (Var) 
GNL_VAR Var; 

{ 

switch (GnlVarDir (Var) ) { 

case GNL_VAR_INPUT : return ("input"); 
case GNL_VAR_OUTPUT : return ("output"); 
case GNL_VAR_INOUT : return { " inout " ) ; 

default: 

fprintf (stderr, 

" ERROR: cannot find the direction of variable '%s'\n", 
GnlVarName (Var) ) ; 
exit (1) ; 

} 



/* */ 

/* GnlSeqComponentlsDFF */ 

/* */ 

/* Returns 1 if the seqnetial component ' SeqComponent ' is a Flip-Flop */ 

/* and 0 otherwise. */ 

/* */ 

int GnlSeqComponentlsDFF (SeqComponent) 

GNL_SEQUENTIAL_COMPONENT SeqComponent ; 

{ 

if ( (GnlSequentialCompoOp (SeqComponent) == GNL_DFF) || 

(GnlSequentialCompoOp (SeqComponent) GNL_DFFX) j ( 

(GnlSequentialCompoOp (SeqComponent) == GNL_DFFO) j | 

(GnlSequentialCompoOp (SeqCoinponent) ^= GNL_DFF1) ) 
return (1) ; 

return (0) ; 

} 

/* */ 

/* GnlSeqComponentlsLATCH */ 

/* */ 

/* Returns 1 if the seqnetial component 'SeqComponent' is a LATCH */ 

/* and 0 otherwise. */ 

/* */ 

int GnlSeqComponentlsLATCH (SeqComponent) 
GNL_SEQUENTIAL_COMPONENT SeqComponent ; 
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if ( (GnlSequentialCompoOp (SeqComponent ) GNL_LATCH) || 

(GnlSequentialCompoOp (SeqComponent) GNL_LATCHX) | | 

(GnlSequentialCompoOp (SeqComponent) == GNL_LATCH1) | j 

(GnlSequentialCompoOp (SeqComponent) == GNIj_LATCHO) ) 
return (1) ; 

return (0) ; 

} 

/* */ 

/* GnlVarRangeUndef ined */ 

/* */ 

/* returns 1 if the range of the var 'Var' is not defined (e.g. its Msb */ 
/* and Lsb are equal to -1) . */ 

/* */ 

int GnlVarRangeUndef ined (Var) 
GNL_VAR Var; 

{ 



} 

/* */ 

/* GnlVarGetStrFromRange */ 
/* */ 



GNL_STATUS GnlVarGetStrFromRange (Var, RangeStr) 
GNL_VAR Var; 

char **RangeStr; 



if ( (GnlVarMsb (Var) === 
return (1) ; 


= -1} ScSc (GnlVarLsb (Var) == -1)) 




return (0) ; 






GnlVarGetStrFromRange 


*/ 




Returns a string thru 
representation of the 


'RangeStr' which is the verilog- format 
range of the variable 'Var' . 


*/ 



{ 



if (GnlVarRangeUndef ined (Var) ) 

{ 

*RangeStr = NULL; 
return (GNL_OK) / 

} 

if ((*RangeStr= (char*) GNL_CALLOC (256, siseof (char) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 

sprintf ( (*RangeStr) , '^[%d:%d]", GnlVarMsb (Var), GnlVarLsb (Var) ) ; 

return (GNL OK) ; 



*/ 

/* GnlNamelndexName */ 

*/ 

This function creates physically a new name which is the concatanate */ 
/* of ' the Index and '] ' . */ 
/* Example: Name = "bus" , Index = 0 then *NewStr = "bus[0]". */ 
*/ 
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GNL_STATUS GnlNamelndexName {Str , Index, NewStr) 
char *Str; 
int Index; 
char **NewStr; 

{ 

char *Strl; 
char *Str2/ 



if (GnlEnvInputFormat {) == GNL_INPUT_VLG) 



} 

else 
{ 



if (GnlStrAppendStrCopy (Str, "[", &Strl) 
return {GNL_iyiEMORY FULL) ; 



if (GnlStrAppendStrCopy (Str, "(", &Strl) 
return (GNL_MEMORY_FULL) ; 



if (GnlStrAppendlntCopy (Strl, Index, &Str2)) 
return ( GNL_MEMORy__FULL) ; 

if (GnlEnvInputFormat 0 == GNL_INPUT VLG) 



} 

else 
{ 



if (GnlStrAppendStrCopy (Str2, "]", NewStr)) 
return (GNL__MEMORY FULL) ; 



} 



if (GnlStrAppendStrCopy (Str2, ")", NewStr)) 
return (GNL_MEMORY FULL) ; 



free (Strl) ; 
free (Str2); 

return (GNL OK) ; 



/* 

/* GnlVarlndexName 

/* / 

/ */ 

/* This function creates physically a new name which is the concatanate */ 

/* of ' the Index and •] ' or ' (» ') - in fsm mode. */ 

/* Example: Var = "bus" , Index 0 then *NewStr = "bus [0] " */ 
/* 

GNL_STATUS GnlVarlndexName (Var, Index, NewStr) 
GNL_VAR Varm- 
int Index; 
char **NewStr; 

{ 



if (GnlNamelndexName (GnlVarName (Var), Index, NewStr)) 
return {GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 
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} 



/* GnlVarStrNameStrlndex 



/* Extracts Base name and Index from the name of an Index Var. The name */ 

/* of an index Var should of the forme: B AS E^NAME [Index] */ 

/* 

GNL_STATUS GnlVarStrNameStrlndex (Str, VarName, Index) 



char 


*Str; 


char 


**VarName; 


int 


* Index ; 


int 


LengthStr; 


char 


* IndexName ; 


int 


i; 


int 


j ; 



LengthStr = strlen (Str) ; 

if |Str[LengthStr-l] != ']') /* Possibly an index Var */ 

if (GnlStrCopy (Str, VarName) ) 

return { GNL_MEMORY_FULL) ; 
*Index = -1; 
return (GNL_OK) ; 

} 

if ((*VarName = (char* ) GNL_C ALLOC (LengthStr, sizeof (char) ) ) == NULL) 
return ( GNL_MEMORY_FULL) ; 

if ((IndexName = (char* ) GML_CALLOC (LengthStr, siseof (char) ) ) NULL) 
return (GNL_MEMORY_FULL) ; 

i = 0; 

while (i < LengthStr- 1) 

{ 

if (Str [i] == • [• ) 

break; 
(*VarName) [i] = Str[i]; 
i++; 

} 

(* VarName) [i] = '\0'; 
j = 0; 

while (i < LengthStr- 1) 
{ 

if (Str [i] == '] ' ) 

break; 
IndexName[j] = Str[i]; 

j++; 

i++; 

} 

IndexName [ j ] = ' \ 0 ' ; 

* Index = atoi (IndexName) ; 
free (IndexName) ; 
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return (GNL_OK) ; 

} 



/* 

/ ^1 

/* GnlStrlndexName */ 

/* — ; Ji 

/* This returns a string thru 'NewStr' which is the concatenation of the*/ 
/* signal name 'Str' 'Index' */ 

/* Example: Str = "x% Index - 2 ---> NewStr = "x[2]" ★/ 
/* 

GNL_STATUS GnlStrlndexName (Str, Index, NewStr) 
char *Str; 
int Index; 
char **NewStr; 

{ 

char *Strl; 
char *Str2; 



if (GnlStrAppendStrCopy (Str, &Strl) ) 

return ( GNL_MEMORY_FULL) ; 

if (GnlStrAppendlntCopy (Strl, Index, &Str2)) 
return ( GNL_MEMORY_FULL) ; 

if (GnlStrAppendStrCopy (Str2, "]»', NewStr)) 
return ( GNL_MEiy[ORY_FULL) ; 

free (Strl) ; 
free (Str2) ; 

return (GNL_OK) ; 

) 

^1 



/* 



/* GnlGetVarFromName */ 
/* 

/* We look for the object GNL_VAR whose name is 'Name' in the Hash Table*/ 
/* names. GNL_OK is returned if the object is found and it is assecible */ 
/* thru 'Var'. If does not exist then GNL_VAR NOT EXISTS is returned */ 

/* 

GNL_STATUS GnlGetVarFromName (Gnl, Name, Var) 
GNL Gnl ; 

char *Name; 

GNL_VAR *Var; 

{ 

BLIST NewList; 

GNL_VAR Var I ; 

unsigned int Key; 

int i; 

BLIST HashTableNames ; 



HashTableNames = GnlHashNames (Gnl) ; 
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/* The list GnlHashNames (Gnl) is of size HASH_TABLE_NAMES_SIZE 
Key = KeyOfName (Name, BListSize (HashTableNames) ) ; 

if (HashTableNames ->Adress [Key] (int)NULL) 
return {GNL_VAR__NOT_EXISTS) ; 

NewList = (BLIST) (HashTableNames ->Adress [Key] ) ; 

for {i=0; i<BListSize (NewList); i-f-i-) 

{ 

Varl = (GNL_VAR)BListElt (NewList, i) ; 

if (Istrcmp (GnlVarName (Varl), Name)) 

{ 

*Var = Varl; 
return (GNL_OK) ; 

} 

} 

return (GNL_VAR_NOT EXISTS) ; 

} 

/* 

/* GnlResetVarHoolc 

/* 

/* Reset the field »GnlVarHook' of all the Var of 'Gnl' 

/* 

void GnlResetVarHooIc (Gnl) 
GNL Gnl ; 

{ 

int i ; 

int j ; 

BLIST Buc]cetl; 

GNL_VAR VarJ; 

BLIST HashTableNames ; 



HashTableNames = GnlHashNames (Gnl) ; 

for (i=0; i<BListSize (HashTableNames); i++) 

{ 

Buclcetl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl) ; j++) 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 
SetGnlVarHook (VarJ, NULL) ; 

} 

} 

} 

/* 

/* GnlResetVarTag 

/* 

/* Reset the field 'GnlVarTag' of all the Var of 'Gnl' * 
/* 

void GnlResetVarTag (Gnl) 
GNL Gnl ; 

{ 
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int i; 

int j ; 

BLIST Bucketl; 

GNL_VAR VarJ; 

BLIST HashTableNames ; 



HashTableNames = GnlHashNames (Gnl) ; 

for {i=0; i<BListSize (HashTableNames); i++) 

{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 

{ 

VarJ = {GNL_VAR) BListElt (Bucketl, j); 
SetGnlVarTag (VarJ, 0) ; 

} 

} 

} 

I. 

/* GnlResetVarDads ★/ 

/* 

/* Reset the field 'GnlVarDads' of all the Var of 'Gnl' */ 
/* , 

void GnlResetVarDads (Gnl) 
GNL Gnl; 

{ 

int i; 

int j ; 

BLIST Bucketl; 

GNL_VAR VarJ; 

BLIST HashTableNames ; 



HashTableNames = GnlHashNames (Gnl) ; 
for (i=0; i<BListSize (HashTableNames); i++) 
{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 
{ 

VarJ = (GNL__VAR) BListElt (Bucketl, j); 
SetGnlVarDads (VarJ, NULL) ; 

} 

} 



f. ^1 

/* GnlResetGnlNetworkTaglnGnl */ 



void GnlResetGnlNetworkTaglnGnl (Gnl) 
GNL Gnl ; 

{ 

BLIST Component s ; 

int i; 
GNL_COMPONENT Component I ; 
GNL_USER__COMPONENT UserCompoI ; 
GNL Gnl Compel; 
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SetGnlTag (Gnl, 0) ; 

Components ~ Gnl Components (Gnl) ; 

for (i=0; i<BListSize (Components) ; i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) >= GNL_USER_COMPO) 
continue; 

UserCompoI = ( GNL_USER_COMPONENT ) Component I ; 
GnlCompoI = GnlUserComponentGnlDef (UserCompoI) ; 

if (! GnlCompoI) 
continue; 

GnlResetGnlNetworkTaglnGnl (GnlCompoI) ; 

} 

p /. 

J1 /* GnlResetGnlNetworkTag */ 

G /* */ 

^fi /* Resets the field tag of each Gnl of the current network 'Nw' . */ 

^ /* */ 

^■^ void GnlResetGnlNetworkTag (Nw) 

W GNL__NETWORK Nw; 

4^ GNL TopGnl ; 

TopGnl = GnlNetworkTopGnl (Nw) ; 
fll GnlResetGnlNetworkTaglnGnl (TopGnl) ; 

O /* 

D /* GnlAddVarlnHashTablenames */ 

/* 

/* We add the GNL_VAR 'Var' in the HashTableNames of 'Gnl' according to */ 

/* the Variable Name. It returns: */ 

/* - GNL_iyiEMORY_FXJLL if no more memory to extend the */ 

/* Hash Table Names. */ 

/* - GNL_VAR_EXISTS if the 'Var' is already present in */ 

/* the Hash Table Names. */ 

/* - GNL_OK if the *Var' was not present and has been */ 

/* added. */ 

/* 

GNL_STATUS GnlAddVarlnHashTablenames (Gnl, Var) 
GNL Gnl ; 

GNL_VAR Var; 

{ 

BLIST NewList; 
GNL_VAR Varl; 
unsigned int Key; 
int i ; 
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BLIST HashTableNames ; 

GNL_STATUS GnlStatus ; 



HashTableNames = GnlHashNames (Gnl) ; 

/* The list GnlHashNames (Gnl) is of size HASH_TABLE_NAMES_SIZE */ 
Key - KeyOfName (GnlVarName (Var) , BListSize (HashTableNames)); 

if ( HashTableNames ->Adress [Key] == (int)NULL) 

{ 

if {BListCreateWithSize (1, 5cNewList) ) 
return (GNL_MEMORY_FULL) ; 

HashTableNames->Adress [Key] = (int ) NewList / 

} 

NewList = (BLIST) (HashTableNames- >Adress [Key] ) ; 

for (i=0; i<BListSize (NewList); i++) 

{ 

Van = (GNL_VAR)BListElt (NewList, i) ; 
if (Istrcmp (GnlVarName (Varl) , GnlVarName (Var) ) ) 
return (GNL_VAR_EXISTS) ; 

} 

if (BListAddElt (NewList, (int) Var)) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_OK) ; 

} 

/* ^1 

/* GnlAddCompoNamelnHashTablenames */ 

/* ^1 

/* We add the string 'CompoName' in the HashTableCompoNames of 'Gnl' */ 
/* if it does not exist. If not '^CompoName' takes the value of the */ 
/* already existing compo name. ★/ 
/* ^1 

GNL_STATUS GnlAddCompoNamelnHashTablenames (Gnl, CompoName) 
GNL Gnl ; 

char **CompoName; 

{ 

BLIST NewList; 
char *CompoNameI; 
unsigned int Key; 
int i ; 

BLIST HashTableCompoNames ; 

GNL_STATUS GnlStatus ; 



HashTableCompoNames = GnlHashCompoNames (Gnl) ; 

/* The list GnlHashCompoNames (Gnl) is of size 
/* HASH TABLE COMPO NAMES SIZE. 
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Key = KeyOfName ( (*CompoName) , HASH_TABLE_COMPO_NAMES_SIZE) ; 

if (HashTableCompoNames->Adress [Key] == (int)NULL) 

if (BListCreateWithSize (1, &NewList) ) 
return (GNL_MEMORY_FULL) ; 

HashTableCompoNames->Adress [Key] = (int ) NewList ; 



NewList = (BLIST) (HasliTableCompoNames- >Adress [Key] ) ; 

for (i=0; i<BListSize (NewList); i++) 
{ 

CompoNamel = (ctiar*) BListElt (NewList, i) ; 
if (istrcmp (CompoNamel, (*CompoName) ) ) 

free ( (*CompoName) ) ; 
*CompoName = CompoNamel; 
return (GNL_OK) ; 

} 

} 

if (EListAddElt (NewList, (int ) { *CompoName) ) ) 
return (GNL_MEMORY_FULL) ; 



return (GNL_OK) ; 

} 



/* 

/* GnlCreateUniqueVarWitliNoTest */ 
^_ 

/* This procedure creates a GNL_VAR object and stores it in the Hash 
/* table names of 'Gnl'. The Var name is based on the name 'BaseName' 
/* but may be not unique since the unicity test is by-passed. This 
/* function must be invoked if the caller knows that the base name he 
/* is giving is unique by construction. */ 
/* ^_ 

static char G__NewUniqueName [52 8] ; 

GNL_STATUS GnlCreateUniqueVarWithNoTest (Gnl, BaseName, NewVar) 
GNL Gnl ; 

cliar *BaseName; 
GNL_VAR *NewVar ; 

{ 

GNL_STATUS GnlStatus ; 

char *NewName ; 



SetGnlUniqueld (Gnl, GnlUniqueld (Gnl)+1); 

sprintf (G_NewUniqueName, "\\%s_%d", BaseName, GnlUniqueld (Gnl)); 

if ((GnlStatus = GnlVarCreateAndAddlnHashTableWithNoTest (Gnl, 

G_NewUniqueName, NewVar) ) ) 
return (GNL_MEMORY_FULL) ; 
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return (GNL OK) ; 



/* 

/* GnlCreateUniqueVarWithNoTestGnlld 

/* 

/* This procedure creates a GNL_VAR object and stores it in the Hash 
/* table names of 'Gnl'. The Var name is based on the name 'BaseName' 
/* but may be not unique since the unicity test is by-passed. This 
/* function must be invoked if the caller knows that the base name he 
/* is giving is unique by construction. 

/* The difference with ' GnlCreateUniqueVarWithNoTest • is that the Gnl 
/* Id used is the one given by 'Gnlld' and not the one from 'Gnl' 
/* 

GNL_STATUS GnlCreateUniqueVarWithNoTestGnlld (Gnlld, Gnl, BaseName, 

NewVar) 

GNL Gnlld; 
GNL Gnl ; 

char *BaseName; 
GNL_VAR *NewVar; 



{ 



GNL^STATUS GnlStatus ; 
char *NewName; 



SetGnlUniqueld (Gnlld, GnlUniqueld (Gnlld) +1) ; 

sprintf (G_NewUniqueName, "\\%s_%d", BaseName, GnlUniqueld (Gnlld)); 

if {(GnlStatus = GnlVarCreateAndAddlnHashTableWithNoTest (Gnl, 

G_NewUniqueName , NewVar) ) ) 

return ( GNL_MEMORY_FULL ) ; 
return (GNL_OK) ; 



/* 

/* GnlCreateUniqueVar */ 

/* ^ 

/* This procedure creates a Unique GNL_VAR object and stores it in the 
/* Hash table names of 'Gnl*. The Var name is based on the name */ 
/* 'BaseName' and is unique. It can be either 'BaseName' if this one ii 
/* unique in 'Gn' or a derivated name. A derivated name is the 
/* 'BaseName' concatanate with a unique Id. */ 



GNL_STATUS GnlCreateUniqueVar (Gnl, BaseName, NewVar) 
GNL Gnl ; 

char *BaseName; 
GNL__VAR *NewVar; 

{ 

int ConflictName; 
GNL_STATUS GnlStatus ; 



/* If no based name specified then we take the Gnl one */ 
if (i BaseName) 

BaseName = GnlName (Gnl) ; 
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if ( {GnlStatus = GnlVarCreateAndAddlnHashTable (Gnl, BaseName, 

NewVar) ) ) 

{ 

if (GnlStatus GNL_iyiEMORY_FULL) 

return ( GNL_MEMORY_FULL) ; 
ConflictName = 1; 

} 

else 

return {GNL_OK) / 
wh i 1 e ( Con flic t Name ) 

{ 

ConflictName = 0; 

SetGnlUniqueld (Gnl, GnlUniqueld (Gnl)+1)/ 

sprintf (G_NewUniqueName, "\\%s_%d", BaseName, GnlUniqueld (Gnl) ) ; 

if ((GnlStatus = GnlVarCreateAndAddlnHashTable (Gnl, 

G_NewUniqueName, NewVar))) 

{ 

if (GnlStatus == GNL_MEMORY_FULL ) 
return (GNL__MEMORY__FULL) ; 
ConflictName = 1; 

} 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlVarNameExistsInGnl 

/* 

/* This function returns 1 if the name 'VarName' is already defined 

/* among the name in the gnl 'Gnl'. */ 

/* 

int GnlVarNameExistsInGnl (Gnl, VarName) 
GNL Gnl ; 

char * VarName; 

{ 

BLIST NewList; 

GNL_VAR Van ; 

unsigned int Key; 

int i ; 

BLIST HashTableNames ; 

GNL STATUS GnlStatus ; 



HashTableNames = GnlHashNames (Gnl) ; 

/* The list GnlHashNames (Gnl) is of size HASH_TABLE_NAMES_SIZE 
Key = KeyOfName (VarName, BListSize (HashTableNames)); 

if (HashTableNames ->Adress [Key] (int)NULL) 
{ 

return (0) ; 
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} 

NewList (BLIST) (HashTableNames - >Adress [Key] ) ; 

for {i = 0; i<BIiistSize (NewList); i++) 

{ 

Van = (GNL_VAR)BListElt {NewList, i) ; 
if (Istrcmp (GnlVarName (Varl) , VarName) ) 
return (1) ; 

} 

return (0) ; 

} 



/* 

/* GnlCreateUnique VarName 

/* 

GNL_STATUS GnlCreateUnique VarName (Gnl, BaseName, NewName) 
GNL Gnl ; 

char *BaseName; 
char **NewName; 

{ 

if ( IGnlVarNameExistsInGnl {Gnl, BaseName)) 

{ 

* NewName = BaseName ; 
return {GNL_OK) ; 

} 

while (1) 

{ 

SetGnlUnigueld {Gnl, GnlUniqueld (Gnl)+1); 

sprintf (G_NewUniqueName, "%s_%d", BaseName, GnlUniqueld (Gnl) ) ; 
if UGnlVarNameExistsInGnl (Gnl, G_NewUniqueName) ) 
free (BaseName) ; 

if (GnlStrCopy (G_NewUniqueName , NewName)) 

return (GNL_MEMORY__FULL) ; 
return (GNL_OK) ; 

} 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlRemoveVarFromGnlLocals 

/* 

/* Removes the variable 'Var' from the list of locals of 'Gnl*. 

/* 

void GnlRemoveVarFromGnlLocals (Gnl, Var) 
GNL Gnl ; 

GNL_VAR Var; 
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{ 



mt i; 
GNL_VAR Varl; 



for (i=0; i<BListSize (GnlLocals (Gnl) ) ; i++) 
{ 

Van = (GNL_VAR)BListElt (GnlLocals (Gnl), i) ; 
if {Var == Varl) 

{ 

BListDellnsert (GnlLocals (Gnl), i+l) ; 
break; 

} 

} 

} 

/ 

/* GnlRemoveVarFromGnlHashTableName */ 



/* This procedure removes the var 'Var» from the hash table names of */ 
/* 'Gnl'. 

/*: 

void GnlRemoveVarFromGnlHashTableName (Gnl, Var) 
GNL Gnl ; 

GNL_VAR Var; 

{ 

BLIST HashTableNames ; 
BLIST Bucket; 
int i ; 

GNL_VAR Varl; 
unsigned int Key; 

HashTableNames = GnlHashNames (Gnl) ; 

Key = KeyOfName (GnlVarName (Var), BListSize (HashTableNames)); 

/* This var does not appear since no bucket. */ 
if (HashTableNames ->Adress [Key] == (int)NULL) 
return; 

Bucket = (BLIST) HashTableNames- >Adress [Key] ; 

for (i=0; i<BListSize (Bucket); i++) 
{ 

Varl = {GNL_VAR)BListElt (Bucket, i) ; 
if (Van == Var) 
{ 

BListDellnsert (Bucket, i + 1) ; 
return; 

} 

} 

} 
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/* GnlNameFromOp */ 
/* 

char *GnlNameFromOp (Op) 
GNL_OP Op; 

{ 

switch (Op) { 

case GNL_AND : return {"."); 
case GNL_OR: return ("+"); 
case GNL_NOT: return ("!"); 
case GNL_XOR: return ("^"); 
case GNL_NAND: return ("*"); 
case GNL_NOR: return ("#"); 
case GNL_XNOR: return ("@"); 

default : return ("??"); 
} 

} 



GnlVarlsVss 


*/ 




returns 1 if the var is a the predefined var VSS (0) . 







int GnlVarlsVss (Var) 
GNL_VAR Var; 

{ 



if (GnlVarName (Var) [0] == '0') 
return (1) ; 



return (0) ; 

} 



GnlVarlsVdd 


*/ 




returns 1 if the var is a the predefined var VDD (1) . 




*/ 



int GnlVarlsVdd (Var) 
GNL_VAR Var; 

{ 

if (GnlVarName (Var) [0] == *!•) 
return (1) ; 

return (0) ; 

} 

/* 

/* GnlNodelsVss 

/* 

/* A node is a Vdd in two cases: */ 

/* - either it is a GNL_CONSTANTE operator with GnlNodeSons = 0, 

/* - or a GNL_VARIABLE operator and the variable is a GnlVarlsVss 



A-LIBC-20 



gnlutil.c 



/* 

mt GnlNodelsVss (Node) 
GNL_NODE Node ; 

{ 

if (GnlNodeOp (Node) == GNL_VARIABLE) 
{ 

^return (GnlVarlsVss ( (GNL_VAR) GnlNodeSons (Node) ) ) ; 

if (GnlNodeOp (Node) == GNL CONSTANTE) 
{ 

return (GnlNodeSons (Node) (BLIST)O); 
return (0) ; 

} 

/* 

/* GnlNodelsVdd 

/* 

/* A node is a Vdd in two cases: */ 
/* - either it is a GNL_CONSTANTE operator with GnlNodeSons =1, */ 

/* - or a GNL_VARIABLE operator and the variable is a GnlVarlsVdd */ 

^1 



int GnlNodelsVdd (Node) 
GNL_N0DE Node; 

{ 

if (GnlNodeOp (Node) === GNL VARIABLE) 
{ 

^return (GnlVarlsVdd ( (GNL_VAR) GnlNodeSons (Node) ) ) ; 

if (GnlNodeOp (Node) == GNL CONSTANTE) 
{ 

^return (GnlNodeSons (Node) == (BLIST)l); 
return (0) ; 

} 

/* 

/* GnlVarlsSignal */ 

/* 

mt GnlVarlsSignal (Var) 
GNL_VAR Var; 

{ 

if (GnlVarlsVdd (Var) | | GnlVarlsVss (Var) ) 
return (0) ; 

return ( 1 ) ; 

} 

/*- 



7 
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/ * GnlNodeCopy ★ / 

/* ^1 

/* <^opy the Node 'Node' at only one level, i.e. the structure and */ 

/* eventually the list of sons. The sons elements are not physically */ 

/* duplicated and are simply shared. ★/ 

/* ^1 

GNL^STATUS GnlNodeCopy (Gnl, Node, NodeCopy) 
GNL Gnl ; 

GNL_NODE Node; 
GNL_NODE *NodeCopy; 

{ 

int i; 
BLIST NewSons; 



if (GnlCreateNode (Gnl, GnlNodeOp (Node), NodeCopy)) 

return (GNLj_MEMORY_FULL) ; 
SetGnlNodeLineNumber (*NodeCopy, GnlNodeLineNumber (Node)) ; 

if ((GnlNodeOp (*NodeCopy) == GNL_VARIABLE) || 
(GnlNodeOp (*NodeCopy) == GNL_CONSTANTE) | | 
(GnlNodeOp (*NodeCopy) == GNL WIRE)) 

{ 

/* Only the Value of 'GnlNodeSons (Node) ' is relevant. */ 
SetGnlNodeSons (*NodeCopy, GnlNodeSons (Node) ) ; 
return {GNL_OK) ; 

} 

/* Otherwise we need to duplicate the list of sons. */ 
/* The list is duplicated but the pointed elements are physically the*/ 
/* same. */ 

if (BListCreateWithSize (BListSize (GnlNodeSons (Node)), &NewSons) ) 
return ( GNL_MEMOR Y_FULL) ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

if (BListAddElt (NewSons, BListElt (GnlNodeSons (Node), i) ) ) 
return ( GNL_MEMORY_FULL) ; 

} 

SetGnlNodeSons {*NodeCopy, NewSons) ; 
return (GNL_OK) ; 

} 

/. 

/* GnlNodeCopyRec */ 

/* 

/* Copy the Node 'Node' and its sub-tree recursively. */ 

/. 

GNL_STATUS GnlNodeCopyRec (Gnl, Node, NodeCopy) 
GNL Gnl ; 

GNL_NODE Node ; 

GNL_NODE * Node Copy ; 

{ 

int i; 
BLIST Sons; 
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BLIST NewList; 
GNL_NODE SonI; 
GNL_NODE NodeCopyl; 



switch (GnlNodeOp (Node)) { 
case GNL_CONSTANTE : 
case GNL_VARIABLE : 
case GNL_WIRE: 

return (GnlNodeCopy (Gnl, Node, NodeCopy) ) ; 

default : 

Sons = GnlNodeSons (Node) ; 

if (BListCreateWithSize (BListSize (Sons), &NewList) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNode (Gnl, GnlNodeOp (Node), ModeCopy) ) 

return ( GNL_MEMORY_FULL) ; 
SetGnlNodeLineNumber (*NodeCopy, GnlNodeLineNumber (Node)) ; 
SetGnlNodeSons (*NodeCopy, NewList) ; 

for (i=0; i<BListSize (Sons); i++) 
{ 

SonI = {GNL_NODE)BListElt (Sons, i) / 
if (GnlNodeCopyRec (Gnl, SonI, ScNodeCopyl) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int) NodeCopyl) ) 
return (GNL_MEMORY FULL) ; 

} 

return (GNL_OK) ; 




/* 

/ * PrintNodeRec 

/* 

void PrintNodeRec (Node, Bind) 
GNL_NODE Node; 
int Bind; 

{ 

GNL_NODE Son; 
GNL__VAR Var; 
int i ; 



switch (GnlNodeOp (Node) ) { 
case GNL_VARIABLE : 

Var = (GNL_VAR) GnlNodeSons (Node); 
if (GnlVarlsVss (Var) ) 

fprintf (stderr, "{o}"); 
else if (GnlVarlsVdd (Var) ) 
fprintf (stderr, "{l}"); 
else 

{ 

if (Bind && GnlVarBindVar (Var) ) 
Var = GnlVarBindVar (Var) ; 
fprintf (stderr, "%s", GnlVarName (Var)); 
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return; 



case GNL_NOT: 

Son = (GNL__NODE)BListElt (GnlNodeSons (Node), 0); 
fprintf (stderr, "!("); 
PrintNodeRec (Son, Bind) ; 
fprintf {stderr, ")"); 
return; 

case GNL_AND: 
case GNL_OR: 
case GNL_NOR: 
case GNL_NAND: 
case GNL_XOR: 
case GNL_XNOR: 

fprintf (stderr, "("); 

for (i=0; i<BListSize (GnlNodeSons (Node))-l; i++) 

Son- (GNL_NODE)BListElt (GnlNodeSons (Node), i) ; 
PrintNodeRec (Son, Bind) ; 
^fprintf (stderr, "%s", GnlNameFromOp (GnlNodeOp (Node))); 

Son = (GNL_NODE)BListElt (GnlNodeSons (Node), i) ; 
PrintNodeRec (Son, Bind) ; 
fprintf (stderr, ")"); 
return; 

case GNL_CONSTANTE : 

if (GnlNodeSons (Node) == (BLIST) 1) 

fprintf (stderr, "{l}"); 
else 

fprintf (stderr, "{o}"); 
return; 

case GNL_WIRE: 

Son = (GNL_NODE) GnlNodeSons (Node); 

PrintNodeRec (Son, Bind) ; 

return; 



default : 



GnlError (9 /* Unknown node */); 
return; 



} 



/* 

/* GnlPrintNodeRec 

/* 

void GnlPrintNodeRec (File, Node, Bind) 



*/ 



*/ 



*/ 



FILE *File; 

GNL_NODE Node; 

int Bind; 



GNL_NODE Son; 
GNL_VAR Var; 
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int i ; 



switch (GnlNodeOp (Node) ) { 
case GNL_VARIABLE : 

Var ^ (GNL_VAR)GnlNodeSons (Node) ; 
if (GnlVarlsVss (Var) ) 

fprintf (File, " {o} ") ; 
else if (GnlVarlsVdd (Var) ) 

fprintf (File, "{l}"); 
else 

{ 

if (Bind GnlVarBindVar (Var) ) 
Var = GnlVarBindVar (Var) ; 
fprintf (File, ns", GnlVarName (Var) ) ; 

} 

returns- 
case GNL_NOT: 

Son = (GNL_NODE)BListElt (GnlNodeSons (Node), 0) ; 
fprintf (File, "!{"); 
GnlPrintNodeRec (File, Son, Bind) ; 
fprintf (File, ")"); 
return; 

case GNL_AND: 
case GNL_OR: 
case GNL_NOR: 
case GNL_NAND: 
case GNL_XOR: 
case GNL_XNOR: 

fprintf (File, "("); 

for (i=0; i<BListSi2e (GnlNodeSons (Node) ) -1; i++) 

{ 

Son = (GNL_NODE)BListElt (GnlNodeSons (Node), i) ; 
GnlPrintNodeRec (File, Son, Bind) ; 
^fprintf (File, "%s", GnlNameFromOp (GnlNodeOp (Node))) 

Son = (GNL_NODE)BListElt (GnlNodeSons (Node), i) ; 
GnlPrintNodeRec (File, Son, Bind) / 
fprintf (File, ")"); 
return; 

case GNL_CONSTANTE: 

if (GnlNodeSons (Node) == (BLIST)l) 

fprintf (File, " {l} ") ; 
else 

fprintf (File, "{o}"); 
return; 

case GNL_WIRE: 

Son = (GNL_NODE) GnlNodeSons (Node); 
GnlPrintNodeRec (File, Son, Bind) ; 
return; 

default : 

GnlError (9 /* Unknown node */) ; 
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return; 

} 

} 



/* 

/* GnlPrintNode */ 
/* 

void GnlPrintNode (File, Node) 
FILE *File; 
GNL_NODE Node; 

{ 

GnlPrintNodeRec {File, Node, 0) ; 



/* 

/* GnlEqualNode */ 
/* 

int GnlEqualNode (Nodel, Node2) 
GNL_NODE Nodel; 
GNL__NODE Node2; 

{ 

int i ; 

GNL_NODE Sonl ; 

GNL_NODE Son2 ; 



if (GnlNodeOp (Nodel) 1= GnlNodeOp {Node2)) 
return (0) ; 

if (GnlNodeOp (Nodel) == GNL__VARIABLE) 

return (GnlNodeSons (Nodel) =^ GnlNodeSons (Node2) ) ; 

if (GnlNodeOp (Nodel) GNL_CONSTANTE ) 

return (GnlNodeSons (Nodel) GnlNodeSons (Node2) ) ; 

if (BListSize (GnlNodeSons (Nodel)) 1= 
BListSize (GnlNodeSons (Node2) ) ) 
return (0) ; 

for (i=0; i<BListSi2e (GnlNodeSons (Nodel)); i++) 
{ 

Sonl = (GNL_NODE)BListElt (GnlNodeSons (Nodel), i) ; 
Son2 = (GNL_NODE)BListElt (GnlNodeSons (Node2) , i) ; 
if ( 1 GnlEqualNode (Sonl, Son2) ) 
return (0) ; 

} 

return (1) ; 

} 

/* 

/* GnlSegName */ 
/* 

char *GnlSeqName (SeqName) 
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GNL_SEQUENTIAL_OP SeqName ; 

{ 

switch (SeqName) { 

case GNL_DFF: return ("DFF"); 
case GNL_DFFX: return ("DFFX"); 
case GNL_DFFO: return ("DFFO"); 
case GNL_DFF1: return ("DFFl"); 
case GNL__LATCH: return ("LATCH"); 
case GNL_LATCHX: return ("LATCHX") 
case GNL__LATCHO: return ("LATCHO") 
case GNL_LATCH1 : return ( "LATCHl " ) 
default: return ("DFF ??"); 

} 



/* 

/* GnlPrintTriStateBox */ 
/* 

void GnlPrintTriStateBox (File, PBox) 
FILE *File; 
GNL_TRISTATE_COMPONENT PBox ; 

{ 



fprintf (File, 

"TRISTATE %s (q=%s, d=%s, djpol=%d, en=%s, en_jpol=%d) \n" , 
GnlTriStatelnstName (PBox) , 
GnlVarName (GnlTriStateOutput (PBox) ) , 
GnlVarName (GnlTriStatelnput (PBox) ) , 
GnlTriStatelnputPol (PBox) , 
GnlVarName (GnlTriStateSelect (PBox) ) , 
GnlTriStateSelectPol (PBox) ) ; 





/* GnlPrintPredef inedBox */ 


void GnlPrintPredef inedBox (File, PBox) 
FILE *File; 
GNL_SEQUENTIAL_COMPONENT PBox ; 

{ 

char *SetName; 
char *ResetName; 



if ( IGnlSequentialCompoSet (PBox)) 

SetName = " " ; 
else 

SetName = GnlVarName (GnlSequentialCompoSet (PBox) ) ; 
if ( iGnlSequentialCompoReset (PBox) ) 

ResetName = " " ; 
else 

ResetName = GnlVarName (GnlSequentialCompoReset (PBox) ) ; 
if (GnlSeqComponentlsDFF (PBox)) 

{ 

fprintf (File, 
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" [%s] %s {q=%s, d-%s, clk=:%s, clkj)ol=%d, s=%s, s_jpol=%d, r=%s, r_pol = %d) \n" , 
GnlSequentialCompoInstName (PBox) , 
GnlSeqName (GnlSequentialCompoOp (PBox) } , 
GnlVarName (GnlSequentialCompoOutput (PBox) ) , 
GnlVarName (Gnl Sequent ialCompo Input (PBox) ) , 
GnlVarName (GnlSequentialCompoClock (PBox) ) , 
GnlSequentialCompoClockPol (PBox) , 
SetName, 

GnlSequentialCompoClockPol (PBox) , 
ResetName , 

GnlSequentialCompoResetPol (PBox) ) ; 

} 

else 

{ 

fprintf (File, 

" [%s] %s (q=%s, d=%s, clk=%s, clk_j)ol=%d, s=%s, sj)ol-%d, r=%s, rjpol=%d) \n\ 
GnlSequentialCompoInstName (PBox) , 
GnlSeqName (GnlSequentialCompoOp (PBox) } , 
GnlVarName (GnlSequentialCompoOutput (PBox)) , 
GnlVarName (Gnl Sequent ialCompoInput (PBox) ) , 
GnlVarName (GnlSequentialCompoClock (PBox) ) , 
GnlSequentialCompoClockPol (PBox) , 
SetName , 

GnlSequentialCompoClockPol (PBox) , 
ResetName, 

GnlSequentialCompoResetPol (PBox) ) ; 

} 

} 

/* GnlPrintUserBox */ 

/* 

void GnlPrintUserBox (File, UserCompo) 
FILE *File; 
GNL_USER_COMPONENT UserCompo ; 

{ 

int i ; 

GNL_ASSOC AssocI; 
char *FormalName; 
char *ActualName; 



fprintf (File, " [%s] %s (", 

GnlUserComponentName (UserCompo) , 
GnlUserComponentlnstName (UserCompo) ) ; 

for (i=0; i<BListSi2e (GnlUserComponent Interface (UserCompo))-!/ i++) 

AssocI = {GNL_ASSOC) 

BListElt (GnlUserComponent Interface (UserCompo) , i) ; 
if (GnlUserComponentFormalType (UserCompo) == GNL_FORMAL_CHAR ) 

FormalName = GnlAssocFormalPort (AssocI) ; 
else 

FormalName = GnlVarName ( (GNL_VAR) GnlAssocFormalPort (AssocI) ) ; 
ActualName = GnlVarName (GnlAssocActualPort (AssocI)); 

fprintf (File, ".%s(%s), FormalName, ActualName); 
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} 

ASSOCI = (GNL^ASSOC) 

BListElt (GnlUserComponent Interface (UserCompo) , i) ; 
if (GnlUserComponentFormalType (UserCompo) GNL_FORMAL_CHAR ) 

FormalName - GnlAssocFormalPort (AssocI) ; 
else 

FormalName = GnlVarName { (GNL_VAR) GnlAssocFormalPort (AssocI)); 
ActualName = GnlVarName (GnlAssocActualPort (AssocI) ) ; 

fprintf (File; " . %s (%s) ) \n" , FormalName; ActualName); 



/* 

/* GnlPrintGnl 



-*/ 



/* 

void GnlPrintGnl (File, Gnl) 
FILE *File; 
GNL Gnl ; 



{ 



mt 

GNL_VAR 

GNL_VAR 

BLIST 

int 

BLIST 

GNL_FUNCTION 
BLIST 



X ; 

Van / 
VarJ; 
Bucket I ; 

j ; 

HashTableNames ; 

Function I; 
Components; 



GNL_COMPONENT Component I ; 



fprintf (File, " 

\n") ; 

fprintf (File, "Name = %s\n\n" , GnlName (Gnl)); 
fprintf (File, "Inputs = "); 

for (i=0; i<BListSize (Gnllnputs (Gnl)); i++) 
{ 

Van = (GNL_VAR) BListElt (Gnllnputs (Gnl), i) ; 
fprintf (File, "%s GnlVarName (Varl) ) ; 

} 

fprintf (File, ";\n"); 
fprintf (File, "Outputs = "); 

for (i = 0; i<BListSize (GnlOutputs (Gnl)); i-f+) 
{ 

Van = (GNL_VAR) BListElt (GnlOutputs (Gnl), i) ; 
fprintf (File, "%s GnlVarName (Varl)); 

} 

fprintf (File, ";\n"); 
fprintf (File, "Locals = ") ; 

/* Removing the unused GNL_VAR_LOCAL variables */ 

/* 

HashTableNames = GnlHashNames (Gnl) ; 

for (i=0; i<BListSize (HashTableNames); i++) 

{ 
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Bucket I = (BLIST)BListElt (HashTableNames , i) ; 
for (j=0; j<BListSize (Bucketl) ; j++) 

{ 

VarJ = {GNL_VAR)BListElt (Bucketl, j); 

if { (GnlVarDir (VarJ) == GNL_VAR_LOCAL) || 

(GnlVarDir (VarJ) GNL VAR LOCAL WIRING) ) 

{ - - - 

fprintf (File, "%s GnlVarName (VarJ) ) / 

} 

} 

} 

for (i=0; i<BListSize (GnlLocals (Gnl) ) ; i++) 
{ 

VarJ = (GNL_VAR)BListElt (GnlLocals (Gnl), i) ; 
if (I VarJ) 

fprintf (File, "NULL "); 
else 

fprintf (File, "%s GnlVarName (VarJ) ) ; 
fprintf (File, ";\n\n"); 

/* Printing the Boolean functions ... */ 
for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Van = (GNL_VAR)BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

fprintf (File, "%s = GnlVarName (Varl) ) ; 
GnlPrintNode (File, GnlFunctionOnSet (FunctionI)); 
fprintf (File, ";\n"); 

if (GnlFunctionDCSet (FunctionI)) 
{ 

fprintf (File, "DCSET %s - ", GnlVarName (Varl)); 
GnlPrintNode (File, GnlFunctionDCSet (FunctionI)); 
fprintf (File, ";\n"); 

} 

} 



return; 

Components = GnlComponents (Gnl) ; 
if (Components BListSize (Components)) 
{ 

fprintf (File, " \n"); 

fprintf (File, "WIRING : \n\n" ) ; 

} 

for (i=0; i<BListSi2e (Components); i++) 

{ 

ComponentI = (GNL_C0NP0NENT) BListElt (Components, i) ; 
switch (GnlComponentType (ComponentI)) { 
case GNL_SEQUENTIAL_COMPO : 

GnlPrintPredef inedBox (File, 

(GNL_SEQUENTIAL_COMPONENT) ComponentI) ; 

break; 
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case GNL_TR I S TATE_COMPO : 

GnlPrintTriStateBox (File, 

{GNL_TRISTATE_COMPONENT} Component I) ; 

break; 

case GNL_USER_COMPO : 

GnlPrintUserBox (File, 

{GNL_USER_COMPONEMT) Component I) ; 

break; 

default: 

break; 

} 

} 

fprintf (File, " 

\n"); 

} 

/* 

/* GnlGetGnlNbLiterals */ 

/* 

/* Returns the number of Literals used in the GNL ' Gnl • */ 

mt GnlGetGnlNbLiterals (Gnl) 
GNL Gnl ; 

{ 

int i ; 

int NbLitt; 
GNL_FUNCTION FunctionI ; 
GNL_VAR Varl; 



} 



NbLitt = 0; 

for |i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

Van = (GNL_VAR)BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
^NbLitt += GnlNodeNbLitt (GnlFunctionOnSet (FunctionI)); 

return (NbLitt) ; 



/* 

/* GnlNodeNbEquiGates 

/* 

float GnlNodeNbEquiGates (Node) 
GNL_NODE Node ; 

{ 

int i ; 

float NbEquiGates ; 

GNL_NODE SonI ; 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return (0) ; 
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if (GnlNodeOp (Node) == GNL_VARIABLE) 
return (0) ; 

if (GnlNodeOp (Node) == GNL WIRE) 

{ 

SonI = (GNL_NODE)GnlNodeSons (Node) ; 
return (GnlNodeNbEquiGates (SonI)) ; 



if (GnlNodeOp (Node) == GNL_NOT) 
NbEquiGates = 0.5; 

else 

NbEquiGates = BListSize (GnlNodeSons (Node) ) - 1 ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

SonI = (GNL_NODE)BListElt (GnlNodeSons (Node), i) ; 
NbEquiGates GnlNodeNbEquiGates (SonI); 



return (NbEquiGates) ; 

} 

/* 

/* GnlGetNbEquiGatesInPredef inedBox 

/* 

float GnlGetNbEquiGatesInPredef inedBox (PBox) 
GNL_SEQUENTIAL_COMPONENT PBox ; 



switch (GnlSequentialCompoOp (PBox) ) { 
case GNL_DFF: 
case GNL_DFFX: 
case GNL_DFF1: 
case GNL_DFFO : 

return (2.5); /* Two master-slave latches + Inv. */ 

case GNL_LATCH: 
case GNL_LATCHX: 
case GNL_LATCH1: 
case GNL_LATCHO: 

return (1); /* Two inverters */ 

} 

} 

/* 

/* GnlGetGnlNbEquiGates 

/* 

/* Returns the number of Equivalent gates in the GNL 'Gnl' 

/* 1 

void GnlGetGnlNbEquiGates (Gnl, CombEquiGates, SeqEquiGates) 
GNL Gnl; 
float *CombEquiGates; 
float *SeqEquiGates; 
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int 
float 

GNL^FUNCTION 
GNL_VAR 
GNL_COMPONENT 
BLIST 



NbEquiGates; 
FunctionI ; 
Varl; 

Component I; 
Components; 



*CombEquiGates = *SeqEquiGates = 0; 

for (i=0; i<BListSize (GnlFunctions (Gnl) ) ; i++) 

Van = (GNL_VAR)BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

*CombEquiGates += GnlNodeNbEquiGates (GnlFunctionOnSet (FunctionI)); 



Components = GnlComponents (Gnl) ; 
if ( iComponents) 
return ; 

for (i=0; i<BListSize (Components); i++) 

ComponentI = (GNL^COMPONENT) BListElt (Components, i) ; 

if (GnlComponentType (ComponentI) == GNL_SEQUENTIAL_COMPO} 

*SeqEquiGates += GnlGetNbEquiGatesInPredef inedBox ( 
(GNL_SEQUENTIAL_COMPONENT) ComponentI) ; 

} 





/ ^ 

/* GnlGetNbFlipsFlops J/ 
/* / 

/* Returns the number of Flips Flops in the GNL 'Gnl'. */ 

/* ^ 

/ ^ 

mt GnlGetNbFlipsFlops (Gnl) 
GNL Gnl ; 

{ 



NbFlipsFlops; 



mt 



i; 



GNL_SEQUENTIAL_COMPONENT PBox ; 
GNL__COMPONENT Component I ; 

BLIST Component s ; 



NbFlipsFlops = 0; 

Components = GnlComponents (Gnl); 
if (I Component s ) 
return (0) ; 



for (i=0; i<BListSize (Components); i++) 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
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if (Gnl Component Type (ComponentI) == GNL_ SEQUENT I AL__COMPO) 

PBox = (GNL_SEQUENTIAL_COMPONENT) ComponentI ; 

if { (GnlSequentialCompoOp (PBox) GNL_DFF) || 
(GnlSequentialCompoOp (PBox) == GNL_DFFX) | | 
(GnlSequentialCompoOp (PBox) == GNL_DFFO) j j 
(GnlSequentialCompoOp (PBox) == GNL_DFF1) ) 
NbFlipsFlops+-t- ; 

} 

} 

return (NbFlipsFlops ) ; 

} 



/* GnlGetNbLatches 



/* Returns the number of Latches in the GNL »Gnl» 

/* 

int GnlGetNbLatches (Gnl) 
GNL Gnl ; 

{ 

int NbLatches; 
int i; 
GNL_SEQUENTIAL_COMPONENT PBox ; 

GNL_C0MP0NENT ComponentI ; 

BLIST Components ; 



NbLatches = 0; 

Components = Gnl Components (Gnl) ; 
if (! Components) 
return (0) ; 

for {i=0; i<BListSize (Components); i-i-+) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 

if (Gnl Component Type (ComponentI) GNL_SEQtJENTIAL COMPO) 

PBox ^ (GNL_SEQUENTIAL__COMPONENT) ComponentI; 

if ( (GnlSequentialCompoOp (PBox) == GNL_LATCH) | | 

(GnlSequentialCompoOp (PBox) == GNL__LATCHX) | | 

(GnlSequentialCompoOp (PBox) == GNL_LATCHO) | | 

(GnlSequentialCompoOp (PBox) GNL_LATCH1) ) 
NbLatches+-i-; 

} 

} 

return (NbLatches) ; 



} 



/* 

/* GnlGetNbTriSTates 
/* 



-*/ 
*/ 

-*/ 
*/ 

■*/ 





*/ 



I* Returns the number of TriStates in the GNL 'Gnl' */ 
/* 
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int GnlGetNbTriStates (Gnl) 
GNL Gnl ; 

{ 

i^it NbTriStates; 

int i ; 

GNL_TRISTATE_COMPONENT PBox ; 

GNL_COMPONENT Component I ; 

BLIST Components; 



NbTriStates = 0; 

Components = Gnl Components (Gnl) ; 
if ( i Components) 
return (0) ; 

for (i=0; i<BListSi2e (Components) ; i++) 

ComponentI - (GNL__COMPONENT) BListElt (Components, i) ; 
if (Gnl Component Type (ComponentI) == GNL__TRISTATE_COMPO) 

PBox = (GNL_TRISTATE_COMPONENT) Component I; 
NbTriStates+-f ; 

} 

} 

return (NbTriStates) ; 

} 

/. 

/* GnlGetNbBuffers J, 

j-k f 

I 

/* Returns the number of Buffers in the GNL 'Gnl' ★/ 

/* * ' 

/ ^ 

mt GnlGetNbBuffers (Gnl) 
GNL Gnl ; 

{ 

iiit NbBuffers; 
int i . 

GNL_BUF_COMPONENT PBox ; 

GNL_COMPONENT Component I ; 

^^^ST Components; 



NbBuffers = 0; 

Components = Gnl Components (Gnl) ; 
if ( ! Component s ) 
return (0) ; 

for (i=0; i<BListSize (Components); i++) 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if |GnlComponentType (ComponentI) == GNL_BUF_COMPO ) 

PBox = (GNL_BUF__COMPONENT) ComponentI; 
NbBuf f ers++; 
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} 

} 



return (NbBuffers) ; 

} 



/* GnlResetNodeHook 



/* Reset 'Hook' field of 'Node' and recursively on the Sons. If the */ 
/* 'Node' has a 0 Hook then we assume it is the same for its sons. */ 
/. 

void GnlResetNodeHook (Node) 
GNL_NODE Node; 

{ 

int i; 
GNL_NODE SonI; 



if (Node NULL) 
return; 

if ( (GnlNodeOp (Node) == GNL_CONSTANTE) | | 
(GnlNodeOp (Node) GNL__VARIABLE} ) 

return; 

if ^GnlNodeHook (Node) -= 0) /* Already processed previously 

return; 

if (GnlNodeOp (Node) == GNL WIRE) 

{ 

SonI = (GNL__NODE)GnlNodeSons (Node); 

GnlResetNodeHook (SonI) ; 

return; 

} 

for {i=0; i<BListSize (GnlNodeSons (Node) ) ; i++) 
{ 

SonI = (GNL_NODE)BListElt (GnlNodeSons (Node) , i) ; 
GnlResetNodeHook (SonI) ; 

} 

SetGnlNodeHook (Node, 0) ; 

} 

/* 

/* GnlResetNodeHookRec 
/* 

/* Reset 'Hook' field of 'Node' and recursively on the Sons. If the */ 
/* 'Node' has a 0 Hook then we assume it is the same for its sons */ 

void GnlResetNodeHookRec (Node) 
GNL_NODE Node; 

{ 

int i; 

GNL_NODE SonI ; 
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GNL_NODE NewNode ; 

GNL_VAR Var; 
GNL_FUNCTION Function ; 



if (Node == NULL) 
return; 

if (GnlNodeOp (Node) == GNL__CONSTANTE) 
return ; 

if (GnlNodeOp (Node) == GNL_VARIABLE) 

{ 

Var = (GNL_VAR)GnlNodeSons (Node) ; 
Function = GnlVarFunction (Var) ; 
if {! Function) 
return; 

NewNode = GnlFunctionOnSet (Function) ; 

GnlResetNodeHook (NewNode) ; 

return; 

} 

SetGnlNodeHook (Node, NULL) ; 

for (i=0; i<BListSize (GnlNodeSons (Node) ) ; i++) 
{ 

SonI = (GNL_NODE)BListElt (GnlNodeSons (Node) , i) ; 
GnlResetNodeHookRec (SonI) ; 

} 

} 



/* 

/* GnlResetGnlNodeHook */ 

/* 

/* This procedure resets all the 'Hook' fields of each GNL_NODE object */ 

/* */ 

void GnlResetGnlNodeHook (Gnl) 
GNL Gnl ; 

{ 

int i; 
GNL_FXJNCTION FunctionI ; 
GNL VAR Varl; 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = {GNL_VAR)BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Van) ; 
GnlResetNodeHook (GnlFunctionOnSet (FunctionI) ) ; 
GnlResetNodeHook (GnlFunctionDCSet (FunctionI) ) ; 

} 

} 

/* */ 
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/* GnlNodeMaxDepth 



/* 

h Computes the Max depth from the node 'Node'. The Field 'Hook' is used*/ 
/* so it must be equals to 0 at the beginning if not a wrong max depth */ 
/* can be returned. */ 

^1 

mt GnlNodeMaxDepth (Node) 
GNL_NODE Node; 

{ 

int i; 
int MaxDepth; 
int DepthI; 
GNL__NODE SonI; 
GNL_NODE NodeFunction; 
GNL_VAR Var; 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return (0) ; 

if (GnlNodeOp (Node) ==r gnl WIRE) 

{ 

Son I = (GNL_NODE) GnlNodeSons (Node) ; 
return (GnlNodeMaxDepth (SonI) ) ; 

} 

if (GnlNodeOp (Node) GNL VARIABLE) 

{ 

Var = (GNL_VAR) GnlNodeSons (Node) ; 
/* 

if (GnlVarDir (Var) ]= GNL_VAR_LOCAL) 
return (0) ; 

if (GnlVarlsVss (Var) ) 
return (0) / 

if (GnlVarlsVdd (Var) ) 
return (0) ; 

/* Continuing on the corresponding function. */ 
if (GnlVarFunction (Var) NULL) 
( 

return (0) ; 

) 

/* we continue on the On set of the function. */ 
NodeFunction = GnlFunctionOnSet (GnlVarFunction (Var) ) ; 
return (GnlNodeMaxDepth (NodeFunction) ) ; 



if (GnlNodeHook (Node)) /* different of NULL so we already got */ 

/* the depth of this node previously. */ 
return ( (int) GnlNodeHook (Node) ) ; 

MaxDepth := 0; 

for {i=0; i<BListSi2e (GnlNodeSons (Node) ) ; i++) 
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{ 

SonI = (GNL_NODE)BListElt (GnlNodeSons (Node) , i) ; 
DepthI = GnlNodeMaxDepth (SonI) ; 
if (DepthI > MaxDepth) 
MaxDepth = DepthI; 

} 

/* we store the result if we pass later on this node */ 
SetGnlNodeHook (Node, (int*) (MaxDepth+1) ) ; 

return (MaxDepth+1) ; 



/* 

/* GnlGetGnlMaxDepth */ 

/* 

/* This procedures will use the field 'Hook' of each GNL_NODE so all the*/ 
/* informations in this field will be lost. */ 

mt GnlGetGnlMaxDepth (Gnl) 
GNL Gnl ; 

{ 

int i; 

int MaxDepth; 

int DepthI ; 

GNL_FUNCTION FunctionI ; 

GNL_NODE Node I; 

GNL_VAR Van ; 



/* First we reset all the 'Hook' fields of each GNL_NODE object */ 
GnlResetGnlNodeHook (Gnl) ; 

MaxDepth = 0; 

for (i=0; i<EListSize (GnlFunctions (Gnl)); i++) 

{ 

Van = (GNL_VAR)BListElt (GnlFunctions (Gnl), i) ; 
FunctionI GnlVarFunction (Varl) ; 
Nodel = GnlFunctionOnSet (FunctionI) ; 

DepthI = GnlNodeMaxDepth (Nodel) ; 

if (DepthI > MaxDepth) 
MaxDepth = DepthI; 

} 

/* First we reset all the 'Hook' fields of each GNL_N0DE object */ 
/* to be clean at the output of this procedure */ 
GnlResetGnlNodeHook (Gnl) ; 



} 



return (MaxDepth) ; 



/* 

/* GnlDepthComp 
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/* 

static int GnlDepthComp (Varl, Var2) 
GNL^VAR *Varl; 
GNL_VAR *Var2; 

{ 

if ( (*Varl) ->Hook < (*Var2) ->Hook) 
return (-1) ; 

if { (*Varl) ->Hook (*Var2) ->Hook) 
return (0) ; 

return (1) ; 



/* 



/* GnlDepthlnvComp */ 

^1 



static int GnlDepthlnvComp (Varl, Var2) 
GNL_VAR *Varl; 
GNL_VAR *Var2/ 



{ 



if ( (*Varl) ->Hook < ( *Var2 ) - >Hook) 
return (1) ; 

if { (*Varl) ->Hook ( *Var2 ) - >Hook) 
return (0) ; 

return (-1) ; 



/* 

/* GnlNodeLevel 

I. ^/ 

void GnlModeLevel (Node, Level) 
GNL_NODE Node; 
int Level ; 



{ 



int i; 
int MaxDepth; 
int DepthI; 
GNL_NODE SonI; 
GNL_NODE NodeFunction; 
GNL_VAR Var; 



if (GnlNodeOp (Node) GNL VARIABLE) 

{ 

Var = (GNL_VAR) GnlNodeSons (Node) ; 
if (GnlVarDir (Var) =:= GNL_VAR_INPUT) 
return ; 

if (GnlVarDir (Var) GNL_VAR__INOUT) 
return ; 

/* If we passed previously with a higher level then it is not */ 
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/* necessary to recurse. */ 
if (GnlVarHook (Var) >= (void* ) Level) 
return ; 

SetGnlVarHook (Var, (int* ) Level) ; 

if (GnlVarlsVss (Var)) 
return ; 

if (GnlVarlsVdd (Var) ) 
return / 

/* Continuing on the corresponding function. */ 
if (GnlVarFunction (Var) == NULL) 
return; 

/* we continue on the On set of the function. */ 
NodeFunction = GnlFunctionOnSet (GnlVarFunction (Var) ) ; 
GnlNodeLevel (NodeFunction, Level+1) ; 
return; 

} 

if (GnlNodeOp (Node) == GNL_CONSTANTE ) 
return ; 

for (i=0; i<BListSize (GnlNodeSons (Node) ) ; i++) 
{ 

SonI = (GNL_NODE)BListElt (GnlNodeSons (Node) , i) ; 
GnlNodeLevel (SonI, Level) ; 

} 

} 



/* 

/* GnlSortFunctionsOnLevel */ 

/* ^1 

/* This procedure sorts the Functions (GNL_VAR) according to their */ 

/* Level in the netlist. The first function is the highest one and the */ 
/* last is the deepest one. */ 

/* , 

void GnlSortFunctionsOnLevel (Gnl) 
GNL Gnl ; 

{ 

int i ; 

int MaxDepth; 

int DepthI ; 

GNL_FUNCTION FunctionI ; 

GNL_VAR Varl; 

BLIST Functions; 



/* First we reset all the 'Hook* fields of each GNL_VAR object */ 
GnlResetVarHook (Gnl); 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

{ 
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Van - {GNL_VAR)BListElt (GnlFunctions (Gnl) , i) ; 
FunctionI = GnlVarFunction (Varl) ; 
GnlNodeLevel (GnlFunctionOnSet (FunctionI), 1) ; 

} 

Functions = GnlFunctions (Gnl) ; 

qsort (BListAdress (Functions), BListSize (Functions), 
sizeof (GNL_VAR) , GnlDepthComp) ; 

/* Finally we reset all the 'Hook^ fields of each GNL_VAR object */ 
GnlResetVarHook (Gnl) ; 

} 

/* 

/* GnlSortFunctionsOnlnvertLevel */ 

/* This procedure sorts the Functions (GNL_VAR) according to their */ 
/* Level in the netlist. The first function is the deepest one and the */ 
/* last is the highets one. ★/ 
/* 

void GnlSortFunctionsOnlnvertLevel (Gnl) 
GNL Gnl ; 

{ 

int i; 

int MaxDepth; 

int DepthI; 

GNL_FUNCTION FunctionI ; 

GNL_VAR Varl; 

BLIST Functions; 



/* First we reset all the 'Hook' fields of each GNL_VAR object */ 
GnlResetVarHook (Gnl) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

{ 

Varl - (GNL_VAR}BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
GnlNodeLevel (GnlFunctionOnSet (FunctionI) , 1) ; 

Functions = GnlFunctions (Gnl) ; 

qsort (BListAdress (Functions), BListSize (Functions), 
sizeof (GNL__VAR) , GnlDepthlnvComp) ; 

/* Finally we reset all the 'Hook' fields of each GNL_VAR object */ 
GnlResetVarHook (Gnl) ; 

} 

/* 

/* GnlSortFunctionsOnlnvertLevelStoreLevel */ 

/* , 

/* This procedure sorts the Functions (GNL_VAR) according to their */ 
/* Level in the netlist. The first function is the deepest one and the */ 
/* last is the highest one. */ 

/*: 

void GnlSortFunctionsOnlnvertLevelStoreLevel (Gnl) 
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GNL Gnl; 

int i ; 

int MaxDepth; 

int DepthI; 

GNL_FUNCTION FunctionI ; 

GNL_VAR Varl ; 

BIjIST Functions; 



/* First we reset all the 'Hook' fields of each GNL_VAR object 
GnlResetVarHook (Gnl) ; 

for {i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Van = (GNL_VAR)BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
GnlNodeLevel (GnlFunctionOnSet (FunctionI) , 1) ; 

Functions = GnlFunctions (Gnl) ; 

qsort (BListAdress (Functions), BListSize (Functions), 
sizeof (GNL_VAR) , GnlDepthlnvComp) ; 



} 





/* GnlGetGnllnfo */ 

/* 

/* This procedure computes different kind of information about the */ 
/* current Gnl like: Number Flip-Flops, Number Latches, Number Literals */ 
/* Maximum combinatorial critcal path, ... */ 

/* If returns a structure thru 'Gnllnfo' storing all these information */ 


GNL_STATUS GnlGetGnllnfo (Gnl, Gnllnfo) 
GNL Gnl ; 

GNL__INFO *GnlInfo; 

{ 

int NbFlipsFlops; 
int NbLatches; 
int NbTriStates; 
int NbBuffers; 
int NbLiterals; 

float NbCombEquiGates ; 

float NbSeqEquiGates; 

float NbTotalEquiGates ; 
int MaxDepth; 
int i ; 

int Nblnputs; 
int NbOutputs; 
int NblnOuts; 

GNL_VAR Port I; 



if ((*GnlInfo = (GNL_INFO) calloc (1, sizeof (GNL_INF0_REC) ) ) == NULL) 
return ( GNL_MEMORY_FULL ) ; 
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NbFlipsFlops = GnlGetNbFlipsFlops (Gnl); 
NbLatches = GnlGetNbLatches (Gnl) ; 
NbTriStates = GnlGetNbTriStates (Gnl) ; 
NbBuf fers = GnlGetNbBuf f ers (Gnl) ; 
NbLiterals = GnlGetGnlNbLiterals (Gnl) ; 

GnlGetGnlNbEquiGates (Gnl, ^NbCombEquiGates , &NbSeqEquiGates) / 
NbTotalEguiGates = NbCombEquiGates+NbSeqEquiGates ; 
MaxDepth = GnlGetGnlMaxDepth (Gnl) ; 

Nblnputs = NbOutputs = NblnOuts = 0; 
for (i=0; i<BListSize (GnlListPorts (Gnl)); i++) 
{ 

PortI = (GNL_VAR)BListElt (GnlListPorts (Gnl), i) ; 
switch (GnlVarDir (PortI)) { 



case GNL_VAR_OUTPUT : 
NbOutputs++; 
break; 

case GNL_VAR_INOUT : 
NbInOuts++; 
break; 



SetGnllnfoNblnputs (*GnlInfo, Nblnputs) ; 
SetGnllnfoNbOutputs {*GnlInfo, NbOutputs) ; 
SetGnllnfoNblnOuts (*GnlInfo, NblnOuts) ; 

SetGnllnfoNbClocks (*GnlInfo, BListSize (GnlClocks (Gnl))); 
SetGnllnfoNbFlipFlops (*GnlInfo, NbFlipsFlops) ; 
SetGnllnfoNbLatches (*GnlInfo, NbLatches) ; 
SetGnllnfoNbTriStates (*GnlInfo, NbTriStates); 
SetGnllnfoNbBuf fers (*GnlInfo, NbBuf fers) ; 

SetGnllnfoNbLit (*GnlInfo, NbLiterals); 
SetGnllnfoNbCombEquiGates {*GnlInfo, NbCombEquiGates) ; 
SetGnllnfoNbSegEquiGates (*GnlInfo, NbSeqEquiGates) ; 
SetGnllnfoNbTotalEquiGates (*GnlInfo, NbTotalEquiGates) ; 
SetGnlInf oMaxDepth {*GnlInfo, MaxDepth) ; 

return (GNL_OK) ; 



case 



GNL_VAR_INPUT : 
Nblnputs++; 
break; 



} 



/* 

/* GnlPrintGnlInf o 
/* 



*/ 



*/ 



*/ 



GNL_STATUS GnlPrintGnlInf o (File, Gnl) 
FILE *File; 
GNL Gnl ; 



{ 

GNL_INFO Gnllnfo; 
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if {GnlGetGnllnfo (Gnl, &GnlInfo) ) 
return ( GNL_MEMORY_FULL) ; 



fprintf 
f printf 


(File, "# 

(File, "# 1 INPUTS 
GnlNbIn (Gnl) ) ; 


= %9d 


1 \n" 


fprintf 


(File, "# 1 OUTPUTS 
GnlNbOut (Gnl)); 


= %9d 


1 \n" 


fprintf 


(File, "# 1 LOCALS 
GnlNbLocal (Gnl) ) ; 


=%9d 


1 \n" 


fprintf 


(File, "# 1 CLOCKS 
GnllnfoNbClocks (Gnllnfo) ) ; 


=%9d 


1 \n" 


fprintf 


(File, "# 1 FLIP-FLOPS 
GnllnfoNbFlipFlops (Gnllnfo) 


= %9d 


1 \n" 


fprintf 


(File, "# 1 LATCHES 
GnllnfoNbLatches (Gnllnfo) ) ; 


=%9d 


1 \n" 


fprintf 


(File, "# 1 TRISTATES 
GnllnfoNbTriStates (Gnllnfo) ) 


=%9d 


1 \n" 


fprintf 


(File, "# 1 BUFFERS 
GnllnfoNbBuf f ers (Gnllnfo) ) ; 


=%9d 


1 \n" 


fprintf 


(File, "# 1 LITERALS 


= %9d 


1 \n" 



GnllnfoNbLit (Gnllnfo)); 



/* 

fprintf (File, "# | COMB . E QUI V . GATES =%9.1f | \n" , 
GnlInf oNbCoTTibEquiGates (Gnllnfo) ) ; 

fprintf (File, "# | SEQ . EQUIV. GATES =%9.1f |\n", 
GnllnfoNbSeqEquiGates (Gnllnfo) ) ; 

fprintf (File, "# | TOTAL EQUIV. GATES =%9.1f |\n", 
GnllnfoNbTotalEquiGates (Gnllnfo) ) ; 



*/ 

fprintf (File, "# | COMB. DEPTH =%9d |\n", 

GnlInf oMaxDepth (Gnllnfo) ) ; 
fprintf (File, "# \n") ; 



free ( (char* ) Gnllnfo) ; 
return (GNL_OK) ; 

} 

/* 

/* GnlGnl InfoPrint 

/* 

void GnlGnllnfoPrint (File, Gnl, Gnllnfo) 
FILE *File; 
GNL Gnl ; 

GNL_INFO Gnllnfo; 



fprintf 
fprintf 


(File, "# 1 INPUTS 


=%9d 


|\n", 




GnlNbIn (Gnl)); 






fprintf 


(File, "# 1 OUTPUTS 


=%9d 


|\n". 




GnlNbOut (Gnl) ) ; 






fprintf 


(File, "# 1 LOCALS 


=%9d 


|\n". 




GnlNbLocal (Gnl) ) ; 






fprintf 


(File, "# 1 CLOCKS 


=%9d 


|\n". 




GnllnfoNbClocks (Gnllnfo) ) ; 
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fprintf (File, "# | FLIP-FLOPS =%9d | \n" , 

GnllnfoNbFlipFlops (Gnllnfo) ) ; 
fprintf (File, "# | LATCHES =%9d | \n" , 

GnllnfoNbLatches (Gnllnfo) ) ; 
fprintf (File, "# | TRISTATES =%9d |\n", 

GnllnfoNbTriStates (Gnllnfo) ) ; 
fprintf (File, "# | BUFFERS =%9d |\n", 

GnllnfoNbBuf f ers (Gnllnfo) ) ; 
fprintf (File, "# | LITERALS =%9d |\n", 

Gnlinf oNbLit (Gnllnfo) ) ; 

/* 

fprintf (File, "# | COMB . EQUIV . GATES =%9.1f | \n" , 

Gnlinf oNbCombEquiGates (Gnllnfo) ) ; 
fprintf (File, "# | SEQ. EQUIV. GATES =%9.1f |\n", 

Gnlinf oNbSeqEquiGates (Gnllnfo) ) ; 
fprintf (File, "# | TOTAL EQUIV. GATES =%9.1f | \n" , 

GnllnfoNbTotalEquiGates (Gnllnfo) ) ; 

fprintf (File, "# | COMB, DEPTH =%9d |\n", 

Gnlinf oMaxDepth (Gnllnfo) ) ; 
fprintf (File, "# \n") ; 

free ( (char*) Gnllnfo) ; 

} 

/* 

/* GnlFreeNodeSons */ 
/* 

void GnlFreeNodeSons (Node) 
GNL_NODE Node; 

{ 

int i ; 

GNL_NODE Sonl; 



if (Node == NULL) 
return; 

if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return; 

if (GnlNodeOp (Node) === GNL__VARIABLE) 
return; 

if (GnlNodeOp (Node) GNL_WIRE) 
return; 

if (GnlNodeSons (Node) NULL) 
return; 

for (i=0; i <BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL__NODE)BListElt (GnlNodeSons (Node), i) ; 
GnlFreeNodeSons (SonI) ; 

} 

BListQuickDelete (&GnlNodeSons (Node) ) ,- 
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} 





/* GnlFreeHashNames */ 

/* 

/* Physical destruction the Hash Table of Gnl Variables in the Gnl 'Gnl' 
/* 

void GnlFreeHashNames (Gnl) 
GNL Gnl ; 

{ 

BLIST HashTableNames ; 
int i; 
BLIST Bucketl; 
int j ; 

GNL_VAR VarJ; 



HashTableNames = GnlHashNames (Gnl) ; 

for (i = 0; i<BListSize (HashTableNames); i-h+) 
{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for {j=:0; j<BListSize (Bucketl); j++) 
{ 

VarJ - (GNL__VAR) BListElt (Bucketl, j); 
if (GnlVarlsVdd (VarJ) | | GnlVarlsVss (VarJ) ) 

continue; 
GnlFreeVar (VarJ) ; 

} 

if (Bucketl) 

BListQuickDelete (&BucketI) ; 

} 

BListQuickDelete (ScHashTableNames) ; 



SetGnlHashNames {Gnl, NULL) ; 

} 

/* 

/* GnlFreeNodesSegments */ 

/* 

/* Physical destruction of the segments storing all the Gnl Nodes which 

/* have been created in the gnl 'Gnl'. */ 

/* 

void GnlFreeNodesSegments (Gnl) 
GNL Gnl ; 

{ 

int i ; 

int j ; 

GNL_NODE Node; 

BLIST ListNodesSegments ; 

GNL__NODE Segment I; 

GNL_VAR Varl; 

GNL_FUNCTION FunctionI ; 
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for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Van = (GNL_VAR)BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
GnlFreeNodeSons (GnlFunctionOnSet (FunctionI) ) ; 
GnlFreeNodeSons (GnlFunctionDCSet (FunctionI) ) ; 
} 

Li stNodes Segments = GnlNodes Segments (Gnl) ; 

for (i = 0; i<BListSize { ListNodes Segments) - 1; i+4-) 

{ 

SegmentI = (GNL_NODE) BListElt (ListNodes Segments, i) ; 
Node = SegmentI; 

for (j=0; j<SEGMENT_NODE_SIZE; 

{ 

if (GnlNodeOp (Node) === GNL_CONSTANTE) 
continue; 

if (GnlNodeOp (Node) GNL_VARIABLE) 
continue ; 

BListQuickDelete (&GnlNodeSons (Node) ) ; 

SetGnlNodeSons (Node, NULL) ; 

Node++; 

} 

free ( (char*) SegmentI) ; 
} 

SegmentI = (GNL_NODE) BListElt (ListNodesSegments , i) ; 
Node = SegmentI; 

while (Node < GnlLastNode (Gnl) ) 

{ 

if (GnlNodeOp (Node) == GNL_CONSTANTE) 

{ 

Node-!-+ ; 
continue; 

} 

if (GnlNodeOp (Node) == GNL_VARIABLE) 

{ 

Node++; 
continue; 

} 

BListQuickDelete (&GnlNodeSons (Node) ) ; 

SetGnlNodeSons (Node, NULL) ; 

Node++; 

} 

free { (char*) SegmentI) ; 

SetGnlFirstNode (Gnl, NULL) ; 
SetGnlLastNode (Gnl, NULL) ; 

} 

/* 

/* GnlPropagatelnvInNode */ 
/* 

GNL_STATUS GnlPropagatelnvInNode (Gnl, Node, DoNegation, NewNode) 
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GNL Gnl ; 

GNL_NODE Node; 
int DoNegation; 
GNL_NODE *NewNode; 

int i ; 

BLIST SonList; 
GNL_NODE SonI; 
BLIST Sons; 
GNL_NODE SNode; 
GNL_NODE VarNode; 



if (Node NULL) 

{ 

*NewNode = NULL; 
return (GNL__OK) ; 

} 

if (GnlCreateNode (Gnl, NULL, NewNode) ) 
return (GNL_MEMORY_FULL) ; 

switch (GnlNodeOp (Node) ) { 
case GNL_AND: 

if (BListCreateWithSize (1, ScSonList) ) 
return (GNL_MEMORY_FULL) ; 
if { ! DoNegation) 

{ 

SetGnlNodeOp (*NewNode, GNL_AND) ; 
Sons = GnlNodeSons (Node) ; 
for (i=0; i<BListSize (Sons) ; i++) 
{ 

SonI = (GNL_NODE)BListElt (Sons, i) ; 
if (GnlPropagatelnvInNode (Gnl, SonI, 0, tSNode) ) 

return ( GNL_MEMORy__FULL) ; 
if (BListAddElt (SonList, (int) SNode)) 

return (GNL MEMORY FULL) ; 

} 

SetGnlNodeSons (*NewNode, SonList) ; 
return (GNL_OK) ; 

} 

else 

{ 

SetGnlNodeOp (*NewNode, GNL_OR) ; 
Sons = GnlNodeSons (Node) ; 
for (i=0; i<BListSi2e (Sons); i++) 
{ 

SonI = (GNL_NODE)BListElt (Sons, i) ; 
if (GnlPropagatelnvInNode (Gnl, SonI, 1, SiSNode) ) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int)SNode)) 
return {GNL_MEMORY FULL) ; 

} 

SetGnlNodeSons (*NewNode, SonList) ; 
return (GNL_OK) ; 

} 

break; 
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case GNL_OR: 

if (BListCreateWithSize (1, ScSonList) ) 
return ( GNL_MEr40RY_FULL) ; 
if ( iDoNegation) 
{ 

SetGnlNodeOp (*NewNode, GNL_OR) ; 
Sons = GnlNodeSons (Node) ; 
for {i^O; i<BListSize (Sons) ; i++) 
{ 

SonI = (GNL_NODE)BListElt (Sons, i) ; 
if (GnlPropagatelnvInNode (Gnl, SonI, 0, &SNode) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, {int)SNode)) 

return (GNL_MEMORY_FULL) ; 

} 

SetGnlNodeSons (*NewNode, SonList) ; 
return (GNL_OK) ; 

} 

else 

{ 

SetGnlNodeOp (*NewNode, GNL_AND) ; 

Sons = GnlNodeSons (Node) ; 

for (i=0; i<BListSize (Sons) ; i++) 

{ 

SonI = (GNL_NODE) BListElt (Sons, i) ; 
if (GnlPropagatelnvInNode (Gnl, SonI, 1, ficSNode) ) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int)SNode)) 
return (GNL_MEMORY_FULL) ; 

} 

SetGnlNodeSons (*NewNode, SonList) ; 
return (GNL_OK) ; 

} 

break; 



case GNL_NOT: 

Sons = GnlNodeSons (Node) ; 
SonI = {GNL_NODE) BListElt (Sons, 0) ; 
if (DoNegation) 

return (GnlPropagatelnvInNode {Gnl, SonI, 0, NewNode) ) ; 
else 

return (GnlPropagatelnvInNode (Gnl, SonI, 1, NewNode)); 
break; 



case GNL_VARIABLE : 

if (IDoNegation) 

{ 

SetGnlNodeOp (*NewNode, GNL_VARIABLE) ; 
SetGnlNodeSons (*NewNode, GnlNodeSons (Node)); 
return (GNL_OK) ; 

} 

else 

{ 
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SetGnlNodeOp ( *NewNode , GNL_NOT) ; 
if (BListCreateWithSize (1, ScSonList) ) 
return ( GNL_MEMORY_FULL) ; 

if (GnlCreateNode (Gnl, GNL_VARIABLE, ScVarNode) ) 

return (GML_MEMORY_FULL) ; 
SetGnlNodeSons (VarNode, GnlNodeSons (Node) ) ; 
if (BListAddElt (SonList, ( int ) VarNode ) ) 

return {GNL_MEMORY_FULL) / 
SetGnlNodeSons (*NewNode, SonList) ; 
return (GNL_OK) ; 

} 

breaks- 



case GNL_CONSTANTE : 

SetGnlNodeOp ( *NewNode , GNL_CONSTANTE ) ; 
if (DoNegation) 

SetGnlNodeSons {*NewNode, (BLIST) IGnlNodeSons (Node) ) ; 
else 

SetGnlNodeSons {*NewNode, (BLIST) GnlNodeSons (Node) ) ; 
return (GNL__OK) ; 

} 

} 

/. 

/* GnlPropagatelnv */ 

/ , 

/* This procedure propagates the GNL_NOT node operator down to the */ 

/* leaves. Nodes trees are physically duplicated and new segments of */ 

/* nodes are created in ' Gnl ' . The original segments of nodes of 'Gnl' *y 
/* are freed. */ 

/* 

GNL_STATUS GnlPropagatelnv (Gnl) 
GNL Gnl / 

{ 

int i ; 

char *CopyName; 

GNL_VAR Varl ; 

GNL__FUNCTION FunctionI ; 

GNL_NODE NewOnSet; 

GNL_NODE NewDCSet; 

BLIST NewListFunctions ; 

int j ; 

BLIST NodesSegments ; 

GNL NewGnl / 



/* We use an intermediate GNL to do the propagation and duplication */ 
if ((NewGnl = (GNL) calloc (1, sizeof (GNL_REC) ) ) == NULL) 
return { GNL_MEiyiORY_FULL ) ; 

SetGnlNbIn (NewGnl, GnlNbIn (Gnl) ) ; 
SetGnlNbOut (NewGnl, GnlNbOut (Gnl) ) ; 
SetGnlNbLocal (NewGnl, GnlNbLocal (Gnl) ) ; 



A-LIBC-51 



gnlutil.c 



SetGnllnputs (NewGnl, Gnllnputs (Gnl) ) ; 
SetGnlOutputs (NewGnl, GnlOutputs (Gnl) ) ; 
SetGnlLocals (NewGnl, GnlLocals (Gnl) ) ; 

SetGnlHashNames (NewGnl, GnlHashNames (Gnl) ) ; 

if (BListCreate (&Nodes Segments) ) 

return { GNL_MEiy[ORY_FULL) ; 
SetGnlNodesSegments (NewGnl, Nodes Segments) ; 
SetGnlFirstNode (NewGnl, NULL) ; 
SetGnlLastNode (NewGnl, NULL) ; 

SetGnlComponents (NewGnl, GnlComponents (Gnl) ) ; 

if (BListCreate ( &:NewListFunctions ) ) 
return ( GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); 1++) 
{ 

Van = (GNL_VAR)BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) / 

if (GnlPropagatelnvInNode (NewGnl, GnlFunctionOnSet (FunctionI) 

0, &NewOnSet)) 
return (GNL_MEMORY_FULL) ; 

if (GnlPropagatelnvInNode (NewGnl, GnlFunctionDCSet (FunctionI) 

0, &NewDCSet)) 
return (GNL_MEMORY_FULL) ; 

/* 'NewListFunctions ' is a list of couples: NewOnSet node and 
/* 'NewDCSet' node. */ 
if (BListAddElt (NewListFunctions, (int) NewOnSet) ) 
return (GNL_MEMORY_FULL) ; 

if (BListAddElt (NewListFunctions, (int ) NewDCSet) ) 
return (GNL_MEMORY_FULL) ; 

} 

Gnl FreeNodes Segments (Gnl) ; 
i = 0; 

for (j=0; j<BListSi2e (NewListFunctions) -1 ; j 2) 

Van = (GNL_VAR)BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

NewOnSet = (GNL_NODE) BListElt (NewListFunctions, j); 
NewDCSet = (GNL_NODE) BListElt (NewListFunctions, j+1) ; 

/* we update the function 'FunctionI' with the new Nodes. */ 
SetGnlFunctionOnSet (FunctionI, NewOnSet) ; 
SetGnlFunctionDCSet (FunctionI, NewDCSet) ; 

i++; 
} 
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BListQuickDelete {&NewListFunctions) ; 

/* We move the segments of nodes from 'NewGnl' to ' Gnl ' . */ 
SetGnlNodesSegments (Gnl, GnlNodesSegments (NewGnl)) ; 
SetGnlFirstNode (Gnl, GnlFirstNode (NewGnl)); 
SetGnlLastNode (Gnl, GnlLastNode (NewGnl)); 

free ( (char*) NewGnl) ; 

return {GNL OK) ; 



/* 

/* GnlFreeConcatNode 

/* 

void GnlFreeConcatNode (ConcatNode) 
GNL_NODE ConcatNode; 

{ 



BListQuickDelete (& (GnlNodeSons (ConcatNode) ) ) ; 
free (ConcatNode) ; 

} 

/* ^1 

/* GnlFreeAssoc */ 

/* ^1 

void GnlFreeAssoc (Assoc) 
GNL__ASSOC Assoc; 

{ 

GNL_VAR Actual ; 

/* Formal is a GNL_VAR and has been freed in the Hash names freeing */ 
Actual = GnlAssocActualPort (Assoc) ; 

if (lActual II GnlVarlsVar (Actual)) 
{ 

free (Assoc) ; 
return ; 

} 

/* Actual is a GNL_NODE (GNL_CONCAT) that we can free */ 
GnlFreeConcatNode (Actual) ; 

free (Assoc) ; 



/* 

/* GnlFreeUserComponent 

/* 

void GnlFreeUserComponent (UserCompo) 
GNL__USER__COMPONENT UserCompo ; 

{ 

BLIST Interface; 
int i ; 

GNL_ASSOC AssocI; 
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Interface = GnlUserComponent Interface (UserCompo) ; 
for (i = 0; i<BListSize (Interface); i-f-+) 
{ 

AssocI = (GNL_ASSOC)BListElt (Interface, i) ; 
GnlFreeAssoc (AssocI) ; 

} 

BListQuickDelete (&Interface) ; 

free (GnlUserComponent Ins tName (UserCompo) ) ; 

free (UserCompo) ; 





/* GnlFreeBuf Component 



void GnlFreeBufComponent (BufCompo) 
GNL__BUF_COMPONENT BufCompo ; 

{ 

BLIST Interface; 
int i ; 

GNL_ASSOC AssocI; 



Interface = GnlBuf Interface (BufCompo) ; 
for (i=0; i<BListSi2e (Interface); i++) 
{ 

AssocI = (GNL_ASSOC)BIiistElt (Interface, i) ; 
GnlFreeAssoc (AssocI) ; 

} 

BListQuickDelete (^Interface) ; 

if (GnlBuf InstName (BufCompo) ) 

free (GnlBuf InstName (BufCompo) ) ; 

free (BufCompo) ; 



/* 

/* GnlFreeComponent */ 
/* 

void GnlFreeComponent (Component) 
GNL__COMPONENT Component ; 

{ 

GNL_USER_COMPONENT UserCompo ; 

switch (Gnl Component Type (Component) ) { 
case GNL_SEQUENTIAL_COMPO : 
case GNL__TRISTATE_COMPO: 
case GNL_BUF_COMPO : 
case GNL_MACR0_C0]y[PO : 
return; 

case GNL USER COMPO : 
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UserCompo = (GNL_USER_COMPONENT) Component ; 
GnlFreeUserComponent (UserCompo) ; 
return; 

} 

} 

/* 

/* GnlUpdateComponentGnlDefOfGnl 

/* 

void GnlUpdateComponentGnlDefOfGnl (Gnl, ListGnls) 
GML Gnl ; 

BLIST ListGnls; 

{ 

int i ; 

GNL__COMPONENT Component I ; 
GML_USER_COMPONENT UserCompo ; 
int j ; 

GNL GnlJ; 



for (i=0; i<BListSize (Gnl Components (Gnl)); 
{ 

ComponentI = (GNL_COMPONENT) BListElt (GnlComponents (Gnl), i) ; 
if (GnlComponentType (ComponentI) != GNL_USER_COMPO) 
continue; 

UserCompo = (GNL_USER_COMPONENT) ComponentI ; 

for {j=0; j<BListSize (ListGnls); j++) 
{ 

GnlJ- (GNL) BListElt (ListGnls, j); 
if ( ! strcmp (GnlName (GnlJ) , 

GnlUser Component Name (UserCompo) ) ) 

SetGnlUserComponentGnlDef (UserCompo, GnlJ) ; 
break; 

} 

} 

} 

} 



/* 

/* GnlUpdateComponentGnlDef 

/* 

void GnlUpdateComponentGnlDef (ListGnls) 
BLIST ListGnls; 

{ 

int i ; 

GNL Gnl I; 



for (i=0; i<BListSize (ListGnls) ; i++) 

{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 
GnlUpdateComponentGnlDefOfGnl (Gnll, ListGnls) ; 

} 
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/* 

/* GnlUpdateFanoutOfVar 



void GnlUpdateFanoutOfVar (Var) 
Gl^L VAR Var; 



{ 



GNL_NODE Node; 
GNL_VAR NewVar; 



if (GnlVarlsVss (Var) | | GnlVarlsVdd (Var) ) 
return; 

/* 'Var' is then used one more time */ 
SetGnlVarHook (Var, (int ) GnlVarHook (Var)+1); 

} 

/* 

/* GnlUpdateFanoutOf Actual 

/* 

void GnlUpdateFanoutOf Actual (Actual) 
GNL_VAR Actual; 

{ 

int i ; 

BLIST Sons; 
GNL_NODE Node I; 

GNL_VAR Varl ; 



if (GnlVarlsVar (Actual)) 
{ 

GnlUpdateFanoutOfVar (Actual) ; 
return ; 

} 

/* The actual is a GNL_CONCAT node so all the sons are GNL_VARIABLE 
/* nodes. */ 
Sons = GnlNodeSons ( (GNL_NODE) Actual) ; 
for (i=0; i<BListSize (Sons) ; i++) 

{ 

Varl = (GNL_VAR)BListElt (Sons, i) ; 
GnlUpdateFanoutOfVar (Varl) ; 

} 

} 



/* 

/* GnlUpdateFanoutFromUserCompo 

/* 

void GnlUpdateFanoutFromUserCompo (UserCompo) 
GNL_USER_COMPONENT UserCompo ; 

{ 

int i ; 
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GNL_ASSOC ASSOCI; 
GNL_VAR Actual; 
GNL_VAR Formal ; 
BLIST Interfaces- 



Interface = GnlUserComponentlnterf ace (UserCompo) ; 

for (i=0; i<BListSize (Interface); 
{ 

AssocI = (GNL_ASSOC)BListElt (Interface, i) ; 
Actual - GnlAssocActualPort (AssocI) ; 

if (lActual) 
continue ; 

Formal = GnlAssocFormalPort (AssocI) ; 

if (GnlVarDir (Formal) == GNL_VAR_OUTPUT) 
continue; 

GnlUpdateFanoutOf Actual (Actual) ; 

} 

} 

/* ^1 

/* GnlUpdateFanoutFromUserCompoCell */ 
/* ^1 

void GnlUpdateFanoutFromUserCompoCell (UserCompo) 
GNL_USER_COMPONENT UserCompo; 

{ 

int i ; 

GNL_AS SOC As soc I ; 

GNL_VAR Actual; 
char ^Formal; 
BLIST Interface; 
L1BC_PIN PinFormal ; 

LIBC_CELL Cell; 
LIBC_NAME_LIST ListPinName; 

Interface = GnlUserComponentlnterf ace (UserCompo) ; 
Cell = GnlUserComponentCellDef (UserCompo) ; 

/* If it is a real black box we do not count the ports */ 
if (ICell) 
return ; 

for (i=0; i<BListSize (Interface); i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
Actual = GnlAssocActualPort (AssocI) ; 

if (lActual) 
continue; 

Formal = GnlAssocFormalPort (AssocI) ; 
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PinFormal = GnlGetPinCellWithName (Cell, Formal); 
if (! PinFormal) 

{ 

fprintf (stderr, 

" ERROR: cannot find pin name <%s> in cell [%s]\n". 
Formal, LibCellName (Cell)); 

exit (1) ; 

} 

if (LibPinDirection (PinForiiial) == OUTPUT_E) 
continue; 



GnlUpdateFanoutOf Actual (Actual) ; 



} 



/* 

/ * GnlUpdateFanoutFromUserCompoKeepVar 

/* 

void GnlUpdateFanoutFromUserCompoKeepVar (UserCompo) 
GNL_USER_COMPONENT UserCompo ; 

{ 



-*/ 
*/ 

-*/ 



int 

GNL_ASSOC 
GNL__VAR 
char 
BLIST 



As sod; 
Actual ; 
*Formal; 
Interface; 



LIBC_PIN PinFormal; 
LIBC_CELL Cell; 



Interface = GnlUserComponentlnterf ace (UserCompo) ; 
Cell = GnlUserComponentCellDef (UserCompo) ; 

/* If it is a real black box we do not count the ports */ 
if (!Cell) 
return; 

for {i=0; i<BListSize (Interface); i++) 
{ 

AssocI = (GNL_ASSOC)BListElt (Interface, i) ; 
Actual ^ GnlAssocActualPort (AssocI) ; 

if (! Actual) 
continue; 

Formal = GnlAssocFormalPort (AssocI) ; 

PinFormal = GnlGetPinCellWithName (Cell, Formal); 

if (i PinFormal) 
{ 

fprintf (stderr, " ERROR: cannot find pin name <%s> in cell [%s] \n", 
Formal, LibCellName (Cell)); 

exit (1) ; 

} 
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if (LibPinDirection (PinFormal) == OUTPUT_E) 
continue ; 

GnlUpdateFanoutOf Actual (Actual) ; 

} 

} 

/* 

/* GnlUpdateFanoutFromSeqCompo 



void GnlUpdateFanoutFromSeqCompo (SeqCompo) 
GNL_SEQUENTIAL_COMPONENT SeqCompo ; 

{ 

GNIi___VAR Signals- 
Signal = GnlSequentialCompoInput (SeqCompo) ; 
GnlUpdateFanoutOf Actual (Signal) ; 

Signal = GnlSequentialCompoClock (SeqCompo) ; 
GnlUpdateFanoutOf Actual (Signal) ; 

Signal = Gnl Sequent ialCompoRe set (SeqCompo) ; 
if (Signal) 

GnlUpdateFanoutOf Actual (Signal) ; 

Signal = GnlSequentialCompoSet (SeqCompo) ; 
if (Signal) 

GnlUpdateFanoutOf Actual (Signal) ; 

} 

/* 

/* GnlUpdateFanoutFromTriStateCompo 

/* 

void GnlUpdateFanoutFromTriStateCompo (TriStateCompo) 
GNL_TRISTATE__COMPONENT TriStateCompo ; 

{ 

GNL__VAR Signals- 



Signal = GnlTriStatelnput (TriStateCompo) ; 
GnlUpdateFanoutOf Actual (Signal) ; 

Signal = GnlTriStateSelect (TriStateCompo) ; 
GnlUpdateFanoutOf Actual (Signal) ; 

} 

/* 

/* GnlUpdateFanoutFromBufCompo 

/* 

void GnlUpdateFanoutFromBufCompo (BufCompo) 
GNL_BUF_COMPONENT BufCompo; 

{ 

GNL_VAR Signal; 
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signal = GnlBuf Input (BufCompo) ; 
GnlUpdateFanoutOf Actual (Signal) ; 



} 



/* ^1 

/* GnlUpdateFanoutOnVarRec */ 

/* ^1 

void GnlUpdateFanoutOnVarRec (Var) 
GNL_VAR Var; 

{ 

GNL_NODE Node; 
GNL VAR RecVar; 



GnlUpdateFanoutOfVar (Var) ; 

if { IGnlVarFunction (Var)) 
return; 

Node = GnlFunctionOnSet (GnlVarFunction (Var) ) ; 
if (GnlNodeOp (Node) != GNL_VARIABLE) 
return; 

RecVar = (GNL_VAR) GnlNodeSons (Node); 
GnlUpdateFanoutOnVarRec (RecVar) ; 

} 

/* ^1 

/* GnlComputeMaxFanoutlnGnl ★/ 
/* ^1 

/* This procedure computes the MaxFanout found in the gnl 'Gnl' and */ 

/* stores it in the field ' GnlMaxFanout (Gnl)'. */ 

/* We use the field 'GnlVarHook' of each var to store the number of */ 

/* times this variable is used. */ 

/* The GNL must be composed only of components and simple assignements */ 

/* ^1 

void GnlComputeMaxFanoutlnGnl (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_COMPONENT Component I ; 

int MaxFanout ; 

BLIST Bucketl; 

int j ; 

GNL_VAR Var J; 

BLIST HashTableNames ; 

BLIST Interface; 

GNL_USER_COMPONENT UserCompo ; 

GNL_TRISTATE_COMPONENT Tri s t ateCompo ; 

GNL_BUF_COMPONENT BufCompo ; 

GNL_SEQUENTIAL_COMPONENT SeqCompo ; 

GNL_VAR Var I; 
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/* We reset the Hook filed of all the Vars of the Gnl , */ 
GnlResetVarHook (Gnl) ; 

for (i=0; i<BListSize (Gnl Components (Gnl)); 1++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Gnl Components (Gnl), i) ; 
switch (GnlComponentType (ComponentI)) { 
case GNL_USER_COMPO : 

UserCompo = (GNL_USER_COMPONENT} ComponentI ; 
if (GnlUserComponentFormalType (UserCompo) 
GNL_FORMAL_CHAR ) 

GnlUpdateFanoutFromUserCompoCell (UserCompo) ; 

else 

GnlUpdateFanoutFromUserCompo (UserCompo) ; 
breaks- 
case GNL_TRISTATE_COMPO: 

TristateCompo - ( GNL_TR I STATE_COMPONENT) Component I ; 
GnlUpdateFanoutFromTriStateCompo (TristateCompo) ; 
break; 

case GNL_BUF__COMPO : 

Buf Compo = ( GNL_BUF_COMPONENT ) Component I ; 
GnlUpdateFanoutFromBuf Compo (BufCompo) ; 
break; 

case GML_SEQUENTIAL_COMPO : 

SeqCompo = (GNL_SEQUENTIAL_COMPONENT) ComponentI ; 

GnlUpdateFanoutFromSeqCompo (SeqCompo) ; 

break; 

default : 

fprintf (stderr, " ERROR: unknow component \n" ) ; 
exit (1) ; 

} 

} 

for (i=0; l<BListSize (GnlOutputs (Gnl)); i++) 
{ 

Van = (GNL_VAR)BListElt (GnlOutputs (Gnl), i) ; 
GnlUpdateFanoutOnVarRec (Varl) ; 

} 

MaxFanout = 0; 

/* We scan all the variables and pick up the max fanout value */ 
HashTableNames = GnlHashNames (Gnl) ; 
for (i=0; i<BListSize (HashTableNames); i++) 
{ 

Bucketl = (BLIST)BListElt (HashTableNames, i) ; 
for {j=0; j<BListSi2e (Bucketl); j++) 

VarJ = (GNL_VAR)BListElt (Bucketl, j); 
if ( (int)GnlVarHook (VarJ) > MaxFanout) 
{ 

MaxFanout = (int) GnlVarHook (VarJ); 
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} 

} 

} 

SetGnlMaxFanout (Gnl, MaxFanout) ; 

/* We reset the Hook field of all the Vars of the Gnl. 
GnlResetVarHook (Gnl) ; 



/ 



/ 



7 



/* GnlComputeMaxFanoutlnGnlKeepVarHook */ 



. * 



/ 



/ 



/* This procedure computes the MaxFanout found in the gnl *Gnl' and */ 

/* stores it in the field ' GnlMaxFanout (Gnl)'. */ 

/* We use the field 'GnlVarHook' of each var to store the number of */ 

/* times this variable is used, */ 

/* The GNL must be composed only of components and simple assignements */ 
/* 

void GnlComputeMaxFanoutlnGnlKeepVarHook (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_COMPONENT Component I ; 

int MaxFanout ; 

BLIST Bucket I; 

int j ; 

GNL_VAR VarJ; 
BLIST HashTableNames; 
BLIST Interface ; 

GNL_USER_COMPONENT Us e r Compo ; 

GNL_TRISTATE_COMPONENT Tr is tat eCompo ; 

GNL_BUF_COMPONENT Buf Compo ; 

GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
GNL VAR Varl; 



/* We reset the Hook filed of all the Vars of the Gnl. */ 
GnlResetVarHook (Gnl) ; 

for (i = 0; i<BListSize (Gnl Components (Gnl)); i+-f) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (GnlComponents (Gnl), i) ; 
switch (Gnl Component Type (ComponentI)) { 
case GNL_USER_COMPO : 

UserCompo = (GNL_USER_COMPONENT) ComponentI; 

GnlUpdateFanoutFromUserCompoKeepVar (UserCompo) ; 

break; 

case GNL_TRISTATE_COMPO : 

TristateCompo = ( GNL_TR I STATE_COMPONENT) ComponentI ; 
GnlUpdateFanoutFromTriStateCompo (TristateCompo) ; 
break; 

case GNL_SEQUENTIAL_COMPO : 

SeqCompo = ( GNL_SEQUENT I AL_COMPONENT) ComponentI ; 
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GnlUpdateFanoutFromSeqCompo (SeqCompo) ; 
break; 

case GNL_BUF_COMPO : 

BufCompo = (GNL_BUF_COMPOMENT) Component I; 
GnlUpdateFanoutFroTTiBuf Compo (BufCompo) ; 
breaks- 



default : 

fprintf (stderr, " ERROR: unknow component \n" ) ; 
exit (1); 

} 



for (i=0; i<BListSize (GnlOutputs (Gnl) ) ; i++) 

Van = (GNL_VAR)BListElt (GnlOutputs (Gnl), i) ; 
GnlUpdateFanoutOnVarRec (Varl) ; 

} 



MaxFanout = 0 ; 



/* We scan all the variables and pick up the max fanout value */ 

HashTableNames = GnlHashNames (Gnl); 

for (i=0; i<BListSize (HashTableNames); i++) 

Bucket I = (BLlST)BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl) ; j++) 

VarJ = (GNL_VAR)BListElt (Bucketl, j); 
if ( (int)GnlVarHook (VarJ) > MaxFanout) 

{ 

MaxFanout = (int) GnlVarHook (VarJ) ; 

} ^ 

} 



SetGnlMaxFanout (Gnl, MaxFanout); 



} 

/* 

/* GnlComputeMaxFanoutlnNetworklnGnlRec */ 

/*: 

void GnlComputeMaxFanoutlnNetworklnGnlRec (Nw, Gnl) 
GNL_NETWORK Nw; 
GNL Gnl; 

{ 

int i; 
GNL_COMPONENT Component I ; 
GNL_USER_COMPONENT UserCompoI ; 
GNL GnlCompoI; 



if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
return; 
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SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

GnlComputeMaxFanoutlnGnlKeepVarHook (Gnl) ; 

for U=0; i<BListSi2e (Gnl Components (Gnl)); i++) 

ComponentI = (GNL_COMPONENT) BListElt (Gnl Components (Gnl), i) ; 
if (GnlComponentType (ComponentI) != GNL_USER_COMPO) 
continue; 

UserCompoI = (GNL_USER_COMPONENT) ComponentI ; 
GnlCompoI = GnlUserComponentGnlDef (UserCompoI) ; 

if (! GnlCompoI) 
continue; 

^GnlComputeMaxFanoutlnNetworklnGnlRec (Nw, GnlCompoI) ; 

} 

/* 

/* GnlComputeMaxFanoutlnNetwork */ 

/ ^/ 

/* This procedure computes the Fanout of each variable */ 
/* ' 

void GnlComputeMaxFanoutlnNetwork (Nw) 
GNL_NETWORK Nw; 

{ 

GNL TopGnl ; 

SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 
TopGnl = GnlNetworkTopGnl (Nw) ; 

GnlComputeMaxFanoutlnNetworklnGnlRec (Nw, TopGnl) ; 

} 



/* 

/ ^1 

/* GnlUpdateComponentGnlDef */ 

/* V 

/* This procedure rebuild the list of functions of the gnl 'Gnl' by */ 
/* scanning all the variables of the Hash Tables of 'Gnl' and adding */ 
/* them if their » Function' field is not NULL. */ 

/ 

GNL__STATUS GnlUpdateGnl Function (Gnl) 
GNL Gnl ; 

{ 

BLIST HashTableNames ; 

int i; 
BLIST Bucketl; 

int j ; 

GNL_VAR VarJ; 
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BSize (GnlFunctions (Gnl) ) = 0; 

HashTableNames = GnlHashNames (Gnl) ; 
for (i=0; i<BListSize (HashTableNames); i++) 
{ 

Bucketl = (BLIST)BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 

VarJ = (GNL_VAR)BListElt (Bucketl, j); 
if (GnlVarFunction (VarJ) ) 

{ 

if (BListAddElt (GnlFunctions (Gnl), (int) 
VarJ) ) 

return {GNL_MEMORy PULL) ; 

} 

} 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlAddOutputsCouplelnverter 

/* 

GNL_STATUS GnlAddOutputsCouplelnverter (Gnl) 



GNL 


Gnl; 


int 


i; 


GNL_VAR 


Van ; 


GNL_FUNCTION 


FunctionI 


GNL_NODE 


Node I; 


GNL_NODE 


NodeNot ; 


GNL_NODE 


NodeNotNot ; 



for |i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

Van = (GNL_VAR)BListElt (GnlFunctions (Gnl), i); 
FunctionI = GnlVarFunction (Varl) ; 
if (i FunctionI) 
continue; 

Nodel = GnlFunctionOnSet (FunctionI) ; 

if (GnlNodeOp (Nodel) == GNL_CONSTANTE) 
continue; 

if (GnlNodeOp (Nodel) == GNL_VARIABLE) 
continue; 

if (GnlCreateNodeNot (Gnl, Nodel, &NodeNot) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNodeNot (Gnl, NodeNot, &NodeNotNot) ) 

return (GNL__MEMORY_FULL) ; 

SetGnlFunctionOnSet (FunctionI, NodeNotNot); 
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} 

return (GNL^OK) ; 

} 



/* */ 

/* GnlPrintFormatSignalName */ 
/* */ 

/* Procedure which prints out a signal name in file 'File' with a */ 
/* limited size of 'Length'. The name is then truncated and only the end*/ 
/* of the name is printed out prefixed by ' . . ' . */ 
/* 



void GnlPrintFormatSignalName (File, Name, Length) 
FILE *File; 
char *Name ; 

int Length; 

{ 

i nt i ; 



if {strlen (Name) >= Length) 
{ 

fprintf (File, ''.."); 

for (i=strlen (Name) -Length+2 ; i<strlen (Name); i++) 
fprintf (File, "%c", Name[i]); 

} 

else 

{ 

for (i=0; i<strlen (Name) ; i++) 

fprintf (File, "%c", Name[i]); 
while (i<Length) 
{ 

fprintf (File, " "); 
i++; 

} 

} 

} 

/* */ 

/* GnlRemoveFunctionFromGnl */ 
/* */ 

/* This procedure removes the GNL_VAR ' Func ' from the list of functions */ 

/* of the gnl 'Gnl ' . */ 

/* */ 

void GnlRemoveFunctionFromGnl (Gnl, Func) 
GNL Gnl ; 

GNL_VAR Func ; 



{ 



int i; 
GNL VAR Fund; 



for {i=0; i<BListSize (GnlFunctions (Gnl) ) ; 1++) 

{ 

Fund = (GNL_VAR)BListElt (GnlFunctions (Gnl), i) ; 
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} 



} 



if {Fund == Func) 
{ 

BListDellnsert (GnlFunctions (Gnl) , 
return; 

} 



/* 

/* GnlTrackVarlnGnl 
/* 



-V 



void GnlTrackVarlnGnl (Gnl; VarName) 



GNL 
char 



Gnl; 

* VarName; 



mt 

int 

BLIST 

GNL_VAR 

BLIST 



i; 
j ; 

Bucket I; 
VarJ; 

HashTableNames ; 



GNL__FUNCTION Function; 
GNL_NODE Node ; 



for {i=0; i<BListSi2e (GnlFunctions (Gnl)); i++) 

VarJ = (GNL_VAR)BListElt (GnlFunctions (Gnl), i) ; 
if |!strcmp (GnlVarNatne (VarJ), VarName)) 

fprintf (stderr, " Qui dans les functions !\n"); 
break; 

} 



HashTableNames = GnlHashNames (Gnl) ; 

fprintf (stderr, "hashtable - %d\n" , HashTableNames); 
for (i=0; i<BListSize (HashTableNames); i++) 

Bucket I - (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl) ; j++) 
{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 
if |!strcmp (GnlVarName (VarJ), VarName)) 

fprintf (stderr, "Var = %d\n", VarJ); 
Function = GnlVarFunction (VarJ) ; 
Node ^ GnlFunctionOnSet (Function) ; 
GnlPrintNode (stderr. Node) ; 
fprintf (stderr, "\n"); 

} 

} 

} 

} 
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/* PrintListVar 

/* 

/* Prints out the list of all the GNL_VAR present in the list 'List' 
/* 

void PrintListVar (List) 
BLIST List; 

{ 

int i ; 

GNL_VAR Van ; 

for (i=0; i<BListSi2e (List); i++) 
{ 

Van = (GNL__VAR)BListElt (List, i) ; 
if (ivarl) 

fprintf (stderr, "NULL "); 
^fprintf (stderr, "%s GnlVarName (Varl) ) ; 

fprintf (stderr, "\n"); 

} 

/* 

/* PrintGnl 

/* 

void PrintGnl (Gnl) 
GNL Gnl ; 

{ 

Gnl PrintGnl (stderr, Gnl) ; 

} 



/* 

/* GnlTrackVarRec 

/* 

void GnlTrackVarRec (Nw, Gnl, GnlName, VarName) 
GNL_NETWORK Nw; 
GNL Gnl ; 

char *GnlName; 
char * VarName; 

{ 

int i; 
GNL_COMPONENT Component I ; 
GNL_USER_COMPONENT UserCompoI ; 
GNL GnlCompoI ; 

BLIST Components; 



if (istrcmp (GnlName (Gnl), GnlName)) 
GnlTrackVarlnGnl (Gnl, VarName) ; 

Components = GnlComponents (Gnl) ; 
for {i=0; i<BListSize (Components); i++) 
{ 

ComponentI - (GNL^COMPONENT) BListElt (Components, i) ; 

if (GnlComponentType (ComponentI) 1= GNL_USER__COMPO) 
continue; ~ 
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UserCompoI = (GNL_USER__COMPONENT) Component I ; 
GnlCompoI = GnlUserComponentGnlDef (UserCompoI) ; 

if (! GnlCompoI) 
continue ; 

GnlTrackVarRec (Nw, GnlCompoI, GnlName, VarName) ; 



/* 

/* GnlTrackVar 



/ 



^1 
*/ 

^ I 

/* Procedure used to debug a specific variable in the network in a */ 
/* specific Gnl. You have to specify the Network, the name of the Gnl */ 
/* and the name of the variable. */ 
/* Modify the core of 'GnlTrackVarlnGnl ' for the fields of the var you */ 
/* want to track. */ 
/* / 



void GnlTrackVar (Nw, GnlName, VarName) 
GNL_NETWORK Nw ; 

{ 

GNL TopGnl ; 

fprintf (stderr, " \\\ TRACKING VAR <%s> in [%s]\n", 

VarName, GnlName) ; 
TopGnl = GnlNetworkTopGnl (Nw) ; 

GnlTrackVarRec (Nw, TopGnl, GnlName, VarName); 
^ fprintf (stderr, " IN TRACKING VAR DONE \n" ) ; 

/* 



/ 
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/* 

/* File: libc_api.c */ 

/* Version: 1,0 */ 



/* Modifications 
/* Documentation: 



ttinclude <stdio.h> 
#include <malloc.h> 
#include "blist.h" 
#include "gnl .h" 
#include "1 ibc_mem . h " 
ttinclude "libc_api.h" 



/* EXTERN 








extern int 
extern LIBC LIB 


libc_error 
tech 


count ; 
"lib; 












/* LibRead 








LIB STATUS LibRead 

{ 


(char *FileName, 


LIBC_LIB 


*Library) 



int code ; 



code = 0; 

libc_error_count = 0; 

if { (code - parse_a_tlib_f ile (FileName) ) || libc_error_count) 
return {LIB_READ_ERR0R) ; 

^Library = tech_lib; 

return (LIB OK) ; 

} 

/* 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



File: 








libc_api . e 




*/ 


Version: 


1.0 




*/ 
*/ 
*/ 


Modifications : 






Documentation : 










*/ 



7 



extern LIBC_OPER_COND LibGetOperatingConditionsFromName (LIBC LIB Lib, char 
*Name) ; ~ 

extern void LiblnitializeDeltaOperCondAndNomOperCond (LIBC LIB Lib, char 
*Name) ; ~ 

extern float LibScalValue {float Value, 

float KProcess, 

float KTemp, 

float KVoltage) / 

extern LIBC_PIN LibGetPinFromNameAndCell (LIBC_CELL Cell, char *PinName) ; 

extern LIBC_TIMING LibGetArcTiming (LIBC_PIN PinIn, LIBC_PIN PinOut) ; 

extern float LibGetScaledValFromTransCapaAndMatrix (float Trans, float Capa, 

LIBC_TABLE_VAL Matrix, 
LIBC_CELL Cell, 
LIB_MATRIX_TYPE Type) ; 

extern LIBC_WIRE_LOAD_SELECT LibGetWireLoadSelectFromName (LIBC LIB Lib char 
*Name) ; - 

extern float LibGetWireLengthFromFanout (LIBC_WIRE_LOAD WireL, int Fanout) ; 

extern float LibGetWireLengthFromCapa (LIBC_WIRE_LOAD WireL, float Capa) ; 

extern float LibGetWireScaledCapaFromLength (LIBC_WIRE_LOAD WireL, 

float Length, LIBC_LIB Lib) ; 

extern float LibGetWireScaledResiFromLength {LIBC_WIRE_LOAD WireL, 

float Length, LIBC_LIB Lib) ; 

extern float LibGetWireAreaFromLength (LIBC_WIRE__LOAD WireL, float Length, 

LIBC_LIB Lib) ; 

extern void LibDelayArcCellRise (float InTransR, float InTransF, float 
OutCapa, 

LIBC_CELL Cell, char *PinInName, char *PinOutName, 
float *DelayR, float *OutTransR) ; 

extern void LibDelayArcCellFall (float InTransR, float InTransF, float 
OutCapa, 

LIBC_CELL Cell, char *PinInName, char *PinOutName , 
float *DelayF, float *OutTransF) ; 

extern void LibDelayArcCell (float InTransR, float InTransF, float OutCapa, 
float WireResistance, int Fanout, 
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LIBC_CELL Cell, LIBC_PIN PinlnName, LIBC_PIN PinOutName, 
float *DelayR, float *OutTransR, 
float *DelayF, float *OutTransF) ; 



extern void LibDelayArcCellRiseSetup {float InTransR, float InTransF, 
float OutCapa, LIBC_CELL Cell, LIBC_PIN Pinin, 
LIBC_PIN PinClock, float *DelayR) ; 

extern void LibDelayArcCellFallSetup (float InTransR, float InTransF, 
float OutCapa, LIBC_CELL Cell, LIBC_PIN PinIn, 
LIBC_PIN PinClock, float *DelayF) ; 
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/* 
/* 



File: 
Version : 
Modifications : 
Documentation : 



libc_api .h 
1.0 



/* LIB STATUS 



typedef enum { 

LIB_OK, 

LIB_READ_ERROR, 
L I B_MEMOR Y_FULL 
} LIB_STATUS; 



/* LIB STATUS 



typedef enum { 

MATRIX_CELL_RISE , 
MATRIX_CELL_FALL , 
MATR I X_R I S E_PROPAGAT I ON , 
MATRIX_FALL_PROPAGATION , 
MATR IX_RI SE_TRANS I T ION , 
MATR I X_FALL_TRANS IT ION , 
MATRIX_SETUP_RISE , 
MATRIX_SETUP_FALL 

} LIB_MATRIX_TYPE; 



/* 

/* API type definitions */ 

— 

/* Defintion of pointer-based types related to the original types */ 
/* defined in file "libcds.h". */ 

/ 

typedef struct libc_lib_rec *LIBC_LIB; 

typedef struct libc_cell_rec *LIBC~CELL; 

typedef struct libc_pin_rec *LIBC_PIN; 

typedef struct libc_bool_opr_rec *LIBC~BOOL_OPR; 

typedef struct libc_name_list_rec *LIBC_NAME~LIST; 

typedef struct libc_k_f actor_rec *LIBC_KFATOR; 

typedef struct libc_operating_condition_rec *LIBC_OPER_COND; 

typedef struct libc_oc_power_rail_rec *LIBC_0C__P0WER_RAIL; 

typedef struct libc_f anout_length_rec *LIBC_FAN_LEN/ 

typedef struct libc_wire_load_rec *LIBC_WIRE_L0Ad7 

typedef struct libc_wire_load_selection_rec *LIBC_WIRE_LOAD SELECT; 

typedef struct libc_wire_load_f rom_area_rec *LIBC_WIRE~LOAD~FROM AREA; 

typedef struct libc__f f_latch_rec *LIBC_FF_LATCH; ~ ~ 

typedef struct libc_table_val_rec *LIBC_TABLE_VAL; 
typedef struct libc_timing_rec *LIBC_TIMING; 
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/* 

/* LIBC_NAME_LIST */ 

#define LibNameListName (1) {(l)->name) 

#define SetLibNameListName (1 , n) { (1) ->name = n) 

#def ine LibNameListNext (1) ( (1) ->next) 

#define SetLibNameListNext (1 , n) ({l)->next = n) 

/* 

/* LIBC__BOOL_OPR */ 

/* 

/* Selectors related to the LIBC BOOL OPR qroup ★/ 

/* r.___r 

#define LibBoolOprType (m) ( (m) ->type) 

#define SetLibBoolOprType (m, c) ( (m) ->type = c) 

#define LibBoolOprValue (m) ( (m) - >u .value) 

#define SetLibBoolOprValue (m, c) ( (m) ->u. value = c) 

#define LibBoolOprldName (m) { (text_buffer*) (m) ->u . id_name) 

#define SetLibBoolOprIdName{m,c) ( (m) - >u . id_name = (text_buf f er*) c) 

#define LibBoolOprLef tSon (m) ((m)->L) 
#define SetLibBoolOprLef tSon (m, c) { (m) ->L = c) 

#define LibBoolOprRightSon (m) { (m) ->R) 

#define SetLibBoolOprRightSon (m, c) ({m)->R = c) 

/. 

/* LIBC_LIB 

/* 

/* Selectors related to the LIB group. */ 

#def ine LibName (m) ( ( text_buf f er*) (m) ->lib_name) 

#define SetLibName (m, c) { (m) - >lib_name = {text__buf f er*) c) 

#define LibCells (m) ( (m) ->cells) 

#define SetLibCells (m, c) ((m)->cells = c) 



#define LibHook (m) 
#define SetLibHook (m, c) 

#define LibDelayModel (Lib) 
#define LibTimeUnit (Lib) 
#define LibNomProcess (Lib) 
#define LibNomTemp (Lib) 
#def ine LibNomVolt (Lib) 

/* lib__group_stmt */ 

#def ine LibLutTemplate (Lib) 
#def ine LibPlutTeraplate (Lib) 
#define LibOperatingCond (Lib) 
#define LibWireLoad (Lib) 
#define LibWireLoadSelect (Lib) 



( (m) ->hook) 

( (m) ->hook = c) 

( (Lib) ->delay_model) 
( (Lib) ->time_unit) 
( (Lib) ->nom_process) 
{ (Lib) ->nom_temperature) 
( (Lib) ->nom__voltage) 



( (Lib) ->lut_template) 
( (Lib) ->plut_template) 
( (Lib) ->operating_cond) 
( (Lib) ->wire_load) 

( (Lib) ->wire_load_selection) 
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default attr */ 



#define LibDef aultCellLeakagePower (Lib) ( (Lib) - >def ault_cell_leakage_j)ower) 
#def ine LibDef aultCellPower (Lib) ( (Lib) - >def ault_cell_power) 



ftdefine LibDef aultFallWireResistance (Lib) \ 
( (Lib) ->default__fall_wire_resi stance) 
#define LibDef aultWireLoad (Lib) ( 
#define LibDef aultWireLoadArea (Lib) ( (Lib) - 
#define Def aultWireLoadCapa (Lib) ( (Lib) - 
#define LibDef aultWireLoadResistance (Lib) \ 
( (Lib) ->default_wire_load_resistance) 
#define LibDef aulfWireLoadSelect (Lib) ( 
>default__wire_load_se lection) 
#define LibDef aultFanoutLoad (Lib) ( (Lib) - 
#define LibDef aultlnoutPinCap (Lib) ( (Lib) - 
#define LibDef aultlnputPinCap (Lib) ( (Lib) - 
#define LibDef aultMaxCapa (Lib) ( (Lib) - 

#def ine LibDef aultMaxFanout (Lib) ( (Lib) - 
#define LibDef aultMaxTransition (Lib) ( 
#define LibDef aultOperatingCond (Lib) ( 
>def ault_operating_conditions) 
#def ine LibDef aultOutputPinCap (Lib) 



(Lib) ->def ault_wire__load) 

>def aul t_wire_load_area ) 

>def ault_wire_load_capacitance) 



(Lib) - 

>default__f anou t_l o ad ) 

>def ault_inout_j>in_cap) 

>de f aul t_input j>in_c ap ) 

>def ault__max_capacitance) 

> de f aul t_max_f anout ) 

(Lib) - >def ault__max_transition) 

(Lib) - 



( (Lib) ->def ault_output_pin_cap) 



#define LibKFactor (Lib) 
#define LibScKFactor (Lib) 



( (Lib) ->k_factor) 
( (Lib) ->sc k factor) 



/* 
/* 
/* 
/* 
/* 



LIBC_CELL 






Selectors related to the CELL group. 







#def ine 


LibCellArea (c) 




((c) 


->area) 




#def ine 


SetLibCellArea (c 


n) 


((c) 


->area 


= n) 


#def ine 


LibCellName (c) 




( (c) 


- >cell_ 


name ) 


#def ine 


SetLibCellName (c 


n) 


((c) 


- >cell_ 


name = n) 


#def ine 


LibCellPins (c) 




{(c) 


->pins) 




#def ine 


SetLibCellPins (c 


n) 


((c) 


- >pins 


= n) 


#def ine 


LibCellNext (c) 




((c) 


- >next ) 




#def ine 


SetLibCellNext (c, 


n) 


( (c) 


->next 


= n) 


#def ine 


LibCellHook(l) 




(d) 


->hook) 




#def ine 


SetLibCellHook (1 , c) 


(d) 


->hook 


= c) 



#define LibCellPower (Cell) 

#def ine LibCellCellLeakagePower (Cell) 

#define LibCellDontTouch (Cell) 

#define LibCellDontUse (Cell) 

#define LibCellPad (Cell) 

#define LibCellPadType (Cell) 

#def ine LibCellScalingFactors (Cell) 

#define LibCellScanGroup (Cell) 



( (Cell) ->cell_power) 

{ (Cell) ->cell__leakage_power) 
( (Cell) ->dont_touch) 

( (Cell) ->dont_use) 

{ (Cell) ->pad_cell) 

( (Cell) ->pad_tYpe) 

( (Cell) ->_scaling_f actors) 
( (Cell) ->scan__group) 
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LIBC_PIN 


*/ 




Selectors related to the PIN group. 




*/ 



#define LibCellPinEgual (Cell) 
#define LibCellPinOpposite (Cell) 

#def ine LibCelllnternalPowerC (Cell) 
#def ine LibCellLeakagePower (Cell) 

#define LibCellFFLatch (Cell) 

/* 
/* 
/* 
/* 
/* 

#define LibPinName (p) 
#define LibPinNameFirst (p) 
ttdefine SetLibPinName {p, d) 

#define LibPinDirection (p) 
#define SetLibDirection (p, d) 

#define LibPinFunction (p) 
#define SetLibPinFunction (p, f ) 

#define LibPinNext (p) 
#define SetLibPiiiNext (p, n) 

#define LibPinHook(l) 
#define SetLibPinHook (1 , c) 



( (Cell) ->pin_equal) 
( (Cell) ->pin_opposite) 

( (Cell) - >internal_power_c) 
( (Cell) - >leakage_pov?er) 

( (Cell) ->ff latch) 



( (p) ->pin__name) 

( ( (p) ->pin_name) ->naTne) 

{ (p) ->pin_name = d) 



( (p) ~>direction) 
{ (p) ~>direction • 



d) 



( (p) ->function) 

( (p) ->f unction 

( (p) ->next) 

{ (p) ->next = n) 

{ (1) ~>hook) 

{ (1) ->hook = c) 



f) 



#define LibPinCapa (Pin) 

#define LibPinClock (Pin) 

#def ine LibPinClockGateEnable_pin (Pin) 

>clock_gate_enable__pin) 

#define IiibPinFanoutLoad (Pin) 



( (Pin) ->capacitance) 
{ (Pin) ->clock) 
( (Pin) - 

( (Pin) ->f anout load) 



#def ine LibPinlnvertedOutput (Pin) 
#define LibPinlsPad (Pin) 
#def ine LibPinMaxFanout (Pin) 
#define LibPinMaxTransition (Pin) 
#define LibPinMaxCapa (Pin) 
#def ine LibPinMinFanout (Pin) 
#define LibPinMinTransition (Pin) 
#define LibPinMinCapa (Pin) 
#define LibPinNext stateType (Pin) 
#define LibPin3State (Pin) 
#define LibPinStateFunction (Pin) 

#define LibPinTiming (Pin) 
#define LibPinMinPulseWidth(Pin) 
#define LibPinMinimumPeriod (Pin) 
#define LibPinlnternalPower (Pin) 
#define LibPinType (Pin) 



( (Pin) ->inverted_output) 

( (Pin) ->is_pad) 

( (Pin) ->max_f anout) 

( (Pin) ->max_transition) 

( (Pin) - >max_capacitance) 

( (Pin) ->min_f anout) 

( (Pin) ->min_transition) 

( (Pin) ->min_capacitance) 

( (Pin) ->nextstate_type) 

( (Pin) ->three_state) 

( (Pin) ->state_f unction) 

( (Pin) ->timing) 
( (Pin) ->min_j)ulse_width) 
( (Pin) ->minimurn_j>eriod) 
( (Pin) ->internal_power) 
( (Pin) ->pin_type) 



/* 

/* LIBC_KFATOR 

/* 

/* Selectors related to the KFATOR group. 
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/* 

/ 

#define LibKFactorCellRise (KF) ( (KF) ->k cell rise) 

#def ine LibKFactorCellFall (KF) ( (kf) - >k~cell~f all ) 

#define LibKFactorCellLeakagePower (KF) { (kf) - >k~cell"leakage power) 

#define LibKFactorCellPower (KF) ( (kf) - >k_cell_power ) 

#define LibKFactorFallPropagation (KF) ( (kF) ->k_f all_propagation) 

#define LibKFactorFallTransition (KF) ( (kf) ->k_f all_transition) 

#define LibKFactorRisePropagation (KF) ( (KF) ->k_rise _j)ropagation) 

#define LibKFactorRiseTransition (KF) { (KF) - >k_rise_transition) 

#defxne LibKFactorFallWireResistance (KF) ( (KF) ->k_fall_wire resistance) 

#def ine LibKFactorHoldFall (KF) ( (kf) ->k_hold_f all) 

#define LibKFactorHoldRise (KF) ( (KF) ->k_hold rise) 

#define LibKFactorPinCap (KF) ( (KF) ->k_j>in cap) ~ 

#define LibKFactorPinPower (KF) ( (KF) -7k _pin_power) 

#define LibKFactorRiseWireResistance (KF) ( (KF) - >k_rise_wire_resistance) 

#define LibKFactorSetupFall (KF) ( (kf) ->k_setup_f all ) 

#define LibKFactorSetupRise (KF) ( (KF) ->k_setup rise) 

#define LibKFactorSkewFall (KF) { (KF) ->k skew fall) 

#def ine LibKFactorSkewRise (KF) ( (kf) ->klskew"rise) 

#define LibKFactorSlopeFall (KF) { (KF) ->k_slopi fall) 

#def me LibKFactorSlopeRise (KF) ( (kf) ->k_slope"rise) 

#def ine LibKFactorWireCap (KF) ( (kf) ->k_wire_cap) " 

#define LibKFactorWireRes (KF) { (KF) ->k_wire_res) 

/* 

/ ^ 

/* LIBC_OPER_COND 

/* ^ 

/ ^ ^ 

/* Selectors related to the LjIBC_OPER_COND group. */ 
/* 

#def ine LibOperCondOcName (OperCond) ( (OperCond) ->oc_name) 

#def ine LibOperCondProcess (OperCond) ( (OperCond) ->process) 

#def me LibOperCondTemp (OperCond) ( (OperCond) -> temperature) 

#def me LibOperCondVolt (OperCond) ( (OperCond) ->voltage) 

#define LibOperCondTreeType (OperCond) ( (OperCond) ->tree type) 

#defme LibOperCondPowerRail (OperCond) ( (OperCond) ->power rail) 

#def me LibOperCondNext (OperCond) ( (OperCond) ->next) 

/* 

/* LIBC_OC_POWER_RAIL */ 

/* ^ 

/ 

/* Selectors related to the OC_POWER_RAIL group. */ 

#def ine LibOCPowerRailPowerSupply (OCPowerRail ) ( (OCPowerRail) ->power supply) 
#def me LibOCPowerRailVolt (OCPowerRail) ( (OCPowerRail) ->volt)~ 

#def ine LibOCPowerRailNext (OCPowerRail) { (OCPowerRail) ->next) 

/* 

/ ^ 

/* LIBC_FAN_LEN */ 
/* ' 

/ ^ I 

/* Selectors related to the FAN LEN. */ 
/* - ^ 

#def ine LibFanLenFanout (FanLength) ( (FanLength) ->fanout) 

#def ine LibFanLenLength (FanLength) ( (FanLength) ->length) 

#def ine LibFanLenCapa (FanLength) ( (FanLength) ->capacitance) 
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#def ine LibFanLenResi stance (FanLength) 
#define LibFanLenArea (FanLength) 
#define LibFanLenNext (FanLength) 



( (FanLength) - >resistance) 
( (FanLength) ->area) 
( (FanLength) ->next) 



LIBC_WIRE_LOAD 


*/ 




Selectors related to the WIRE LOAD group. 




*/ 



#define LibWireLoadName (WireLoad) ( (WireLoad) - >wl_naTne) 

ftdefine LibWireLoadArea (WireLoad) ( (WireLoad) ->area) 

#define LibWireLoadCapa (WireLoad) ( (WireLoad) - >capacitance) 
#def ine LibWireLoadResistance (WireLoad) ( (WireLoad) - >resistance) 

#def ine LibWireLoadSlope (WireLoad) ( (WireLoad) ->slope) 

#define LibWireLoadFanLen (WireLoad) ( (WireLoad) *>f anout_length) 

#def ine LibWireLoadNext (WireLoad) ( (WireLoad) ->next) 

/* 

/* LIBC_WIRE_LOAD_FROM_AREA */ 

/* 

/* Selectors related to the W1RE_L0AD_FR0M__AREA. */ 

/* */ 

#define LibWireLFromAreaMinArea (WireLFromArea) ( (WireLFromArea) ->min_area) 

#define LibWireLFromAreaMaxAre a (WireLFromArea) ( (WireLFromArea) ->max_area) 

#def ine LibWireLFromAreaLModel (WireLFromArea) ( (WireLFromArea) - 
>_load_model ) 

#def ine LibWireLFromAreaNext (WireLFromArea) ( (WireLFromArea) ->next) 

/* 

/* LIBC__WIRE_LOAD_SELECT */ 

/* */ 

/* Selectors related to the WIRE_LOAD_SELECT group. */ 

/* 

#define LibWireLoadSelName (WireLoadSel) ( (WireLoadSel) ->wls_name) 

#define LibWireLoadSelTable (WireLoadSel) ( (WireLoadSel) ->area_table) 
#def ine LibWireLoadSelNext (WireLoadSel) ( (WireLoadSel) ->next) 



/* LIBC_FF_LATCH */ 

/* 

/* Selectors related to the FF_LATCH group. */ 

/* 

#define LibFFLatchQName (f ) ( (f ) ->Q_name) 

#define SetLibFFLatchQName (f ,n) ( (f ) ->Q_name = n) 

#def ine LibFFLatchQNName (f ) ( (f ) ->QN_name) 

#define SetLibFFLatchQNName (f ,n) ( (f ) ->QN_name = n) 

/* 1: normal, >1 bank */ 

#define LibFFLatchWidth (f ) ( (f ) ->width) 

#define SetLibFFLatchWidth (f , n) ( (f ) ~>width = n) 



#define LibFFLatchlsFF (f ) 



(f ) ->is ff ) 



A-LIBC-78 



libcapi.h 



#define SetLibFFLatchlsFF (f , n) 



( (f ) ->is ff = n) 



/* old model 

#define LibFFLatchlsState (f ) 
#def ine SetLibFFLatchlsState {f , n) 

/* L, H; X 

#define LibFFLatchClPrVarKf ) 

#def ine SetLibFFLatchClPrVarl (f ; n) 

L, H, N, T, X 
#define LibFFLatchClPrVar2 (f ) 
#define SetLibFFLatchClPrVar2 (f ,n) 

#define LibFFLatchClear (f ) 
#define SetLibFFLatchClear (f , n) 

#define LibFFLatchPreset (f ) 
#define SetLibFFLatchPreset (f ,n) 

/* ff group 

#define LibFFLatchClockOn (f ) 
#def ine SetLibFFLatchClockOn (f , n) 

/* ff group 

#define LibFFLatchNextState (f ) 
#def ine SetLibFFLatchNextState (f ,n) 

/* clock_on_also, enable_on_also 
#define LibFFLatchOnAlso (f ) 
#define SetLibFFLatchOnAlso (f , n) 

/* latch group 

#define LibFFLatchEnable {f ) 

#define SetLibFFLatchEnable {f , n) 

/* latch group 

#define LibFFLatchDataIn (f ) 

#define SetLibFFLatchDataIn (f , n) 

/* state group 

tdefine LibFFLatchForceOO (f ) 

#define SetLibFFLatchForceOO (f ,n) 

/* state group 

#define LibFFLatchForceOl (f ) 

#def ine SetLibFFLatchForceOl (f , n) 

/* state group 

#define LibFFLatchForcelO (f ) 

#define SetXiibFFLatchForcelO (f ,n) 

/* state group 

#define LibFFLatchForcell (f ) 

#def ine SetLibFFLatchForcell (f ,n) 



(f 



- >is_state) 
->is_state = n) 

*/ 

->clear_preset_varl) 
->clear_j)reset_varl = n) 

*/ 

- >clear_jpreset_var2) 
->clearjpreset_var2 ~ n) 

->clear) 

{ (f ) ->clear = n) 

->preset) 
->preset = n) 

*/ 

->clock_on) 
->clock__on = n) 

*/ 

( (f ) ->next_state) 
->next state = n) 



- >on_also) 
->on also = n) 



->enable) 
->enable = n) 



->data_in) 
->data in = n) 



->f orce__00) 
->force 00 = n) 



->f orce_01) 
->fDrce 01 = n) 



- >f orce_10) 
->force 10 - n) 



->f orcein) 
->force 11 = n) 
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IiIBC_TABLE_VAL 


*/ 




Selectors related to the TABLE_VAL. 




*/ 



I' 

#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



LibTableValTbl (Table) 
LibTableVallndexl (Table) 
LibTableValIndex2 (Table) 
LibTableValIndex3 (Table) 
LibTableValScalar_val (Table) 
LibTableValValues (Table) 



( (Table) ->_tbl) 
{ (Table) ->indexl) 
( (Table) ->index2) 
( (Table) ->index3) 

( (Table) ->scalar_ 
( (Table) ->values) 



val) 



LIBC_TIMING 


*/ 


Selectors related to the TIMING group. 





#def ine LibTimingRelatedPin (Timing) 
#def ine LibTimingType (Timing) 
#def ine LibTimingSense (Timing) 

#def ine LibTimingCellRise (Timing) 
#def ine LibTimingCellFall (Timing) 
#def ine LibTimingRisePropagation (Timing) 
#def ine LibTimingFallPropagation (Timing) 
#def ine LibTimingRiseTransition (Timing) 
#def ine LibTimingFallTransition (Timing) 
#def ine LibTimingRiseConstraint (Timing) 
#def ine LibTimingFallConstraint (Timing) 



( (Timing) ->related_j)in) 
( (Timing) - >timing_type) 

( (Timing) - >timing_sense) 

( (Timing) ->cell_rise) 

( (Timing) - >cell__f all) 

( (Timing) - >rise_jpropagation) 

( (Timing) - >f all_propagation) 

( (Timing) ->rise_transition) 
( (Timing) ->f all_transition) 
( (Timing) ->rise_constraint ) 
( (Timing) - >f all_constraint) 



( (Timing) ->next) 



#define LibTimingNext (Table) 

/* 

/* Global Variable of Timing Analyser */ 

/* we have difined this global variable because 
we cosult it always durring the timing analyser */ 

extern float G_DeltaProcess ; 
extern float G__DeltaTemp; 
extern float G_DeltaVoltage; 
extern LIBC_OPER_COND G_OperCond; 

extern LIBC_WIRE_LOAD G_WireLoad; /* The wire load corresponding a given 

netlist. This wire_load is choosed in 
the library taking into account the 
global area of the netlist.*/ 



EOF 
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libc__cell.c -- routines handle cell define 
# include "libc_def -h" 

/* */ 
public 

void libc_cell_init ( 

text_buffer *cell_naTne) 

{ 

lib_cell = new_libc_cell_rec ( ) ; 
lib_cell->_tlib = tech^lib; 

lib__cell->cell_naTne = cell^name; 

/* set default value */ 

lib_cell->cell_leakage_power = tech_lib->def ault_cell_leakage_j)o 

lib_cell->cell_power = tech_lib- >def ault_cell_jpower ; 

} 

public 

void libc_cell j>in_init ( 

libc_name_list_rec *pin_name) 
{ libc_timing__rec *tp; 

if (libjin != NULL lib_pin->Tnembers 1= NULL) { 

j-k pin group inside the bundle group */ 

lib_bundle = libjin; /* save */ 

/* allocate memory and set default value */ 

lib^pin = copy_libc_pin_rec (lib__bundle) ; 
f ree_libc_name_list__rec (lib_jpin->members) ; 
lib_j}in->members = NULL; 

for (tp=lib_pin->timing; tp I =NULL; tp^tp->next) 

tp->__current_pin - lib_pin; 
lib_pin->pin_name = pin_name; 

} 

else if (lib_pin != NULL &&: lib_j)in- >is_bus} ( 

/* pin group inside the bus group 

* keep the same lib_pin */ 

lib_bus = libj^in; /* save */ 

/* compare the pin name must cover all bus range */ 

/* NOT IMPLEMENT YET ==== */ 

f ree_libc_name_list_rec (pin_name) ; 

} 

else { 

lib_pin = new_libc_pin_rec () ; 
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/* 


set default value *, 


/ 


lib_jpin- 


•>f anout_load 


tech_ 


lib_j)in- 


■>max__f anout 


tech_; 


lib j>in- 


->Tnax transition = 


tech '. 


lib pin- 


■ >max_capacitance 


tech_: 


/* ---- 


for ECL model */ 




lib^pin- 


■>pin_power 


tech_: 


lib_pin- 


■>f all_wor__emitter = 


tech_; 


lib_pin- 


■ >f all__wor__intercept 




lib_j>in- 


•>rise_wor_emitter = 


tech_; 


lib_pin- 


• >rise_wor_intercept 




lib_pin- 


■>emitter_count = 


tech_: 


lib_p in- 


>pin_name 





t e ch_l i b - > de f au 1 1 _p i n jp owe r ; 

-ib- >def ault_f all_wor_emitter ; 
tech_lib- >def aul t_f all__wor_intercept ; 
.ib->default_ris e_wo r_eTn i 1 1 e r ; 
tech_lib->def ault_rise_wor_intercept ; 



} 

lib_pin->_current_cell = lib_cell; 



/* 

public 

void libc_cell_pin_de fault (void) 
( switch (libj>in->direction) ( 
case INPUT_E : 

if (lib_pin->capacitance == 0.0) 

lib_j)in->capacitance = tech_lib->def ault__input J)in_cap; 
break; 
case OUTPUT_E : 

if (lib__pin->capacitance == 0.0) 

lib_pin->capacitance = tech_lib->def ault_output_jpin_cap; 
break; 
case INOUT_E : 

if (lib_pin->capacitance == 0.0) 

lib_pin->capacitance = tech_lib->def ault__inout_pin_cap; 
break; 

} 

} 

/* V 

public 

libc_j>in_rec *libc_cell_f ind_pin_by_naTne ( 
libc_cell_rec *cell, 
char *pin_name, 

int index) /* < -10000 : no index */ 

{ libc_pin_rec *pp; 

libc_name_list__rec *np; 

char id_name__idx [128] , id_name [128] , bus__name [128] ; 

sprintf (id_name_idx, tech_lib->bus_naming_style , pin_name, index) ; 
sprintf ( id_name , " %s " , pin__name) ; 

for (pp=cell->pins ;pp I =NULL;pp=pp->next) { 
if (pp->is_bus) { 
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int i, from, to, temp; 

/* whole bus pin */ 

for (np=pp - >pin_name ; np i =NULL ; np=:np - >next ) { 

if (strcmp (np->name, id_name) ^= 0) 
^ return(pp); /* FOUm) */ 

/* indexed bus pin */ 

from = pp->_bus_type->bit_from; 
to = pp->_bus_type->bit_to; 
if (from > to) { 

temp = from; from = to; to = temp; 

for (i=from;i<=to;i++) { 

sprint f (bus__name , tech_lib- >bus_naming_s tyle , pp- >pin_name- >name , i ) 
/* if (strcmp {bus_name, id_name) =:= 0) 

* return (pp); * FOUND */ 

if (strcmp (bus_name, id_name_idx) == o) 
return (pp); /* FOUND */ 

} 

^Ise { /* bundle and normal pin */ 

for (np=pp- >pin_name ; np 1 =NULL; np=np- >next ) { 
if (strcmp (np->name, id_name) == 0) 

return(pp); /* FOUND */ 

} 

} 

return (NULL) ; 



public 

int libc_cell_get_bundle_idx( 
libc_cell__rec *cell , 
char *pin__name) 
{ libc_pin_rec *pp; 

libc_name_list_rec *np; 
int i; 



for (pp=cell - >pins ; pp ! =NULL ; pp=pp - >next ) { 
if (pp->members == NULL) 
continue; 

for (np=pp->members, i=0 ;np ! =NULL;np=np- >next , i++) { 
if (strcmp (np->name,pin_name) == 0) 
return (i) ; 

} 

} 

return (-99999) ; 



/* 

static 

libcjpin_rec *libc_cell_f ind_pin_rec ( 
libc_cell_rec *cell. 
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char *pin_name, 

int index) /* < -10000 : no index */ 

{ libc_pin_rec *pp; 

lib c_name__l i s t_r e c * np ; 
char id_name [12 8] ; 

if (index >= -10000) 

sprintf (id_name, tech_lib->bus_naming_style,pin_name, index) ; 
else 

sprintf (id_name, "%s" ,pin_name) ; 

for (pp=cell - >pins ; pp 1 ==NULL;pp=pp- >next ) { 

if {pp->members | | pp->is_bus) /* no bundle and bus group */ 

continue/ 

for (np=pp->pin_name;np I =NULL;np=np->next ) { 
if (strcmp (np->naTne, id_name) == 0) 

return(pp); /* FOUND */ 

} 

} 

return (NULL) ; 

} 

/* */ 

public 

void libelee ll__bundle_jpost ( 
libc_pin_rec *bundle) 
{ libc_cell_rec *cell; 

libc_name_list_rec *mp, *np, *np_head=NULL; 

libc_pin_rec *pp; 

1 ibc_t iTning_rec * tp ; 

cell = bundle - >_current__cell ; 

/* duplicate the members pin */ 

for (mp=bundle->members ;mp 1 =NULL;mp=mp->next) { 

pp = libc_cell_find_j)in_rec (cell, mp->name, -99999) ; 
if (pp NULL) { /* no entry, need to duplicate */ 

np = new_libc_name_list_rec () ; 

np->name = copy_string (mp->name) ; 
np->next = np__head; 
np_head = np; 

} 

} 

if (np_head != NULL) { 

pp = copy_libc_pin_rec (bundle) ; 

f ree_libc_name_list_rec (pp->members) ; 

pp->members = NULL; 

f ree_libc_name_list_rec (pp->pin_name) ; 

pp->pin__name = np_head; 

for {tp=pp->timing; tp ! =NULL; tp=tp->next) 

tp->_current_pin = pp; 
pp->next = cell->pins; 

cell- >p ins = pp; 

} 
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= = = = = = = . = . = . = = = = . = = = = = . = = = = = = = . = = */ 

public 

lifoc_name_list_rec *libc_cell_bus_name ( 

libc__pin_rec *bus) 
{ libc_name__list_rec *np, *np__head = NULL; 

int from/ to, i; 

char name [12 8] ; 

assert (bus->is__bus) 
from = bus->_bus__type->bit_f rom; 
to = bus->_bus_type->bit__to; 
if (from > to) { 

i = from; from = to; to = i; 

} 

for (i-to; i>=f rom; i--) { 

np = new_libc_name_list_rec ( ) ; 

sprintf (name, tech_lib->bus_naming_style,bus->pin_name->name, i) 
np->name = copy_s t ring (name) ; 
np->next = np_head; 
np_head = np; 

} 

return (np_head) ; 

} 

/* 

/* return 1 : in name is slice buse name ; BUS [0:3] 

* return 0 : A, D[0], ... 

*/ 

static 

int libc_cell_ext_bus_name ( 
char *name, 

libc__name__list_rec **head, 

libc_name__list_rec **tail) 
{ int f rom_bit , to_bit , tmp; 
char *S;*val,*t; 
libc_name__list__rec *np; 
char bus_n [256] ; 

{*head) = (*tail) = NULL; 

for (s=name; (*s) ! = ' \0 ' (*s) J = ' [' ;s++) ; 

if ((*s) == '\0') 

return (0) ; 
t = s ; 

(*s) = '\0'; 
val - ++S; 

for (; (*S) l = '\0'&&(*s) ! = '] 'ScSc(-^s) ! = • : ' ;S++) ; 
if ( (*S) • 1 I (*s) === '\0^) { 

(*t) = ' ['; 

return (0) ; 

} 

(*s) = -XO'; 
from_bit = atoi(val); 
(*s) = ' : 
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val = ++S; 

for (; {*s) I = • \0 ' && (*S) !='] ' ;S++) ; 
{*S) = '\0'; 
to_bit = atoi (val) ; 
(*s) = '] 

#if 0 

if (from_bit > to_bit) { 

tmp = from_bit; from_bit = to_bit; to_bit = tmp; 

} 

for {tmp=f rom_bit ; tmp<=to_bit ; tTnp++) { 

sprintf (bus_n, tech__lib- >bus_naming_style, name, tmp) 
np = new_libc_name_list_rec ( ) ; 

np->name ~ copY_string (bus__n) ; 
if ( (*head) == mJLL) 

(*head) = np; 
else 

{*tail) ->next = np; 
(*tail) = np; 

} 

#else 

/* may be bug here */ 

np - new_libc_name_list_rec ( ) ; 

np->naTne ~ copy_s t ring (name) ; 
(*head) = (*tail) np; 
#endif 

(*t) = ' [' ; 
return (1) ; 

} 

/* 

public 

void libc_cell_relative_pin_handle ( 

libc_name_list_rec *head) 
{ libc_name_list_rec *np, *next_np, *nhp, *ntp; 

for (np=head;np ! =NULL;np=next_np) { 
next_np = np->next; 

if {libc_cell_ext_bus_name (np->name, &nhp, Sintp) ) { 
f ree_text_buf f er (np->name) ; 
np->name = nhp->name; 
nhp->name = NULL; 
if (nhp 1= ntp) { 

ntp->next = np->next; 

np->next = nhp->next; 

nhp->next = NULL; 

} 

f ree__libc_name_list_rec (nhp) ; 

} 

} 

} 

/* 
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public 

void libc_cell_name_list_list ( 

1 ibc_name_l i s t__l i s t * *head , 
libc__name_list_rec *name_list 1 , 
libc_name_list_rec *name_list2) 

{ libc_name_list__list *nll; 

nil = new_libc_naTne_list_list 0 ; 
nll->name_listl = name__listl/ 
nll->name_list2 = name__list2; 
nll->next = {*head) ; 
{*head) = nil; 



public 

void libc_cell_f ind_j)in_type { 
text_buffer *type_name) 
{ libc_type_rec *p; 

for (p=tech_lib->type/pi=NULL;p=p->next) { 
if (strcmp (p->type_name, type_name) ==0) { 
lib_jpin->_bus_type = p; 
break; 

} 

} 

f ree_text_buf fer (type^name) ; 



public 

libc_k_f actor_rec *libc_cell_k_f actor (void) 

if (sc_kfc i= NULL) 

return (sc_kfc) ; 
return (tech_lib->k factor); 

} 

/* 



public 

libc_k_f actor_rec *libc_cell_f ind_sc_group ( 

text_buffer *name) 
{ libc_k_factor__rec *p; 
char msg [12 8] ; 

for {p= t ech_l ib - > sc_k_f actor ; p ! =NULL ; p=p - >next ) { 
if (strcmp (name,p->kf_name) 0) { 
free_text_buf f er (name) ; 
return (p) ; 

} 

} 

sprintf (msg, "scaling_factors group (%s) not f ound . " , name) ; 

libcerror (msg) ; 

f ree_text_buf fer (name) ; 
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return (NULL) ; 

} 

/★ ff, latch group */ 

public 

void libc_cell__preset_var ( 
char *preset_var, 
text_buffer *str) 

{ 

{*preset_var) - 'X'; 

if (str[0] == 'VO' II str[l] i= '\0') 

libcerror ("only L,H,N,T,X is allowed."); 
else if (str[0] ! = 'L' str[0] 1= 'H' str[0] i= 'N' 
str[0] != 'T' str[0] != 'X') 

libcerror ("only L,H,N,T,X is allowed."); 
else 

(*preset_var) = str[0]; 
f ree_text__buf fer (str) ; 

} 

/* = = = = = ^ = = = = = = = = ^ = = :=. = = = = = ^^^ = = = = ^^ = = = ^ = = = :=:^ = = = ^^ = = ^^ */ 

/* for test_cell */ 

/* 

public 

void libc_cell_jpin_type_assign ( 

1 ibc_name_l i s t_r e c * p i n_name s , 

signal_type_E sig_type) 
{ libcjpin_rec *pin; 

lib c_name_l i s t _r e c * np ; 

if (pin__names == NULL) 
return; 

for (np=pin_names ;np I =NULL;np=np->next) { 

pin = libc_cell_f ind_pin_by__name (lib_tc_cell,np->name, -99999) 
if (pin == NULL) 
continue; 

switch (sig_type) { 
case ST__TSI_E : 
case ST_TSII_E : 

pin->pin_type |= l^axubPortTypeScanln; 

break; 
case ST_TSO_E : 
case ST__TSOI_E : 

pin->pin_type |= l_axubPortTypeScanOut ; 

break; 
case ST_TSC_E : 
case ST__TSCA_E : 
case ST_TSCB_E : 

pin->pin_type |= l_axubPortTypeScanClock; 

break; 
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case ST_TSE_E : 
case ST_TSEI__E : 

/* no test_scan_enable is used in xxx (01/20/99) */ 

/* pin->pin_type | =^ l_axubPortTypeEnable / */ 
break ; 

case ST_TCLK_E : 
break; 

} 

} 



/* 
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libc def .c -- define value handle 



#include "libc_def.h" 
#define HASH_SIZE 2 9 
public 

int libc_def_init (void) 

{ 

def_table = new_libc__def_table_rec { ) / 
def_table->gc_entry = (struct libc_glb__const_rec 
**)get^tr_buffer (HASHES IZE) ; 

def_table->lib = (struct libc_def_entry_rec **) getjptr_buf f er (HASH__SIZE) 

def_table->cell = (struct libc_def_entry_rec **) get _ptr_buf f er (HASH__SIZE) 

def_table->pin = (struct libc_def_entry_rec **) get__ptr_buf f er (HASH_SIZE) 

/* ==:= = = = = = = = = = = = = = = = =:=: = = = = = = = = = = = = = = = = == = = = =.=: = = = = ^ = =.=. */ 

Static 

int libc__def_hash_f unc ( 
text_buffer *name) 
{ char *s; 

unsigned int v = 0; 

for (s=name; (*s) ! = ' \0 • ; s-i-+) 
V (*s) ; 

V %= HASH_SIZE; 

return (v) ; 



public 

void libc_def_insert ( 

text_buffer *def_name, 

text_buffer *region_name, /* library, cell, pin */ 

text_buffer *type_name) 
{ unsigned int idx; 

libc_def_entry_rec *p; 

lib c_de f _en t ry__r e c * * en t ry_he ad ; 

char msg [256] ; 

enum value_type vt; 

if (strcmp (region_name, "library") == 0) 

entry_head = def_table- >lib; 
else if (strcmp (region_name, "cell" ) == 0) 

entry_head - def_table->cell ; 
else if (strcmp(region__name, "pin") == 0) 
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entry_head = def _table- >pin; 
else { 

sprintf (msg, "Not support user define in group %s . " , region_name) ; 
libcerror (msg) ; 

} 

f ree_text_buf f er (region_name) ; 

if (strcmp (type_name, "integer" ) =^=0 | | strcmp (type_name float ") ==0 ) 

vt = REAL_VT; 
else if (strcmp (type_name, "string") ==0) 

vt = TEXT_VT; 
else if (strcmp (type_name, "boolean" ) ==0) 

vt = BOOL_VT; 
else { 

sprintf (msg, "Not support user define type %s . " , type_name) ; 
libcerror (msg) ; 

} 

f ree_text_buf f er (type_name) ; 

if (entry__head NULL) { 
f ree_text_buf f er (def_name) ; 
exit (44) ; 

} 

idx = libc_def_hash_func (def_name) ; 

for (p=entry_head [idx] ;p ! =NULL;p=p->next) { 

if (strcmp(p->def_name,def_name) == 0) { /* find it, overwrite 

f ree_text_buf f er (def__name) ; 
p->v_type =: vt; 
return ; 

} 

} 

p = new_libc_def_entry_rec 0 / 

p->next = entry_head [idx] ; 
p->def_name = def_name; 

p->v_type = vt; 

entry__head [idx] = p; 

} 

/* ^1 

public 

void libc_def_cell_area ( 

text_buffer *def_name, 

enum pad_type_E resource_type) 
{ text_buffer *area_name, *region_name, *type_name; 
libc_cell_area_rec *cap; 

area_name = copy_string (def_name) ; 
region_name = copy_string ( "cell" ) ; 
type_name = copy_string ( "float " ) ; 
libc_def_insert (def_name , region_name, type_name) ; 
cap = new_libc__cell_area__rec 0 ; 
cap->area__name = area_name; 
cap->resource_type = resource_type ; 
cap->next = tech_lib->def ine_cell_area; 
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tech_lib- >def ine_cell_area = cap; 

} 



public 

int libc_def__f ind ( 

text_buffer *name, 
enutn value_type *vt) 
{ unsigned int idx; 

libc_def_entry_rec *p/ 
libc_def_entry_rec **entry_head; 

/* find the region first */ 

if (lib_pin 1= NULL) 

entry_head - def_table- >pin; 
else if (lib_cell '= NULL) 

entry_head = def_table- >cell / 
else 

entry_head = def_table- >lib; 

idx = libc_def_hash_func (name) ; 

for (p=entry_head [idx] ;pi =NULL;p:^p->next) { 

if (strcrap(p->def_name,name) == 0) { /* found */ 

{*vt) = p->v_type; 
return (1); /* SUCC */ 

} 

} 

^ return(O); /* FAIL (not found) */ 

/* = = = = = == = = = == = = = = =: = = = = = = = =: = = = = = = = =: = = = =: = = =,^ = = = = =, = = = ^= */ 

public 

void libc_def_gc_insert { 

text_buffer *name, 

float value) 
{ int idx; 

libc_glb__const__rec *p ; 

idx = libc_def_hash_func (name) ; 

for (p=def_table->gc_entry [idx] ;p ! -NULL;p=p->next) { 

if (strcmp (p->gc_name,name) 0) { /* find it, overwrite */ 

f ree__text_buf f er (name) ; 
p->value = value; 
return; 

} 

} 

p - new_libc_glb_const_rec {) ; 

p->next = def_table->gc_entry [idx] ; 
p->gc_name = name; 

p->value = value; 

def_table->gc_entry [idx] = p; 
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public 

int libc_def_gc_f ind ( 

text_buffer *name; 
float *value) 
( unsigned int idx; 

libc_glb_const__rec *p; 
int code = 0; 



idx = libc_def_hash__func (name) ; 

for (p=:def_table->gc_entry [idx] ;p ! =NULL;p=p- >next ) { 



if (strcmp (p->gc__name, name) 
f ree_text_buf f er (name) ; 
(*value) = p->value; 
return (1) ; 



} 

} 

if (strcmp (name, "VDD") = 
(*value) = 3.3; 
code = 1 ; 

} 

f r ee__ text _buffer (name) ; 
(*value) = 1.0; 
return (code) ; 



0) { 



/* 1: SUCC */ 



/* found */ 



0) { 



/* 0: FAIL (not found) */ 
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= = = . = = : 



#ifndef LIBC_DEF_H 
#define LIBC_DEF_H 

#include < stdio . h> 
#include <string.h> 
#include <assert.h> 

#include "libc mem.h" 



#ifndef public 
#define public 
#endif 

/* 

/* sematic rec 

union yystype { 
int 
float 

text buffer 



/* { V 



(0x1) 

(1«1) 

(1«2) 

(1«3) 

(1<<4) 

(1«5) 

{1<<6) 

(1<<7) 

(1<<8) 

(1<<9) 

{1<<10) 

{1<<11) 

{1<<12) 

(1<<13) 

(1<<14) 

{1<<15) 

(1<<16) 

(1«17) 

(1<<18) 



/* sematic record */ 
int_val ; 

real_val ; 

*string; 



/* ref axu/axuExt.h */ 

#def ine l_axubPortTypeIn 
#define l_axubPortTypeOut 
#define l_axubPortTypeIO 
#define l_axubPortTypeTri 
#define l_axubPort Type Power 
#de fine l_axubPo r t TypeGround 
#define l_axubPort Type Clock 
#define l_axubPortTypeTieUp 
ftdefine l_axubPortTypeTieDn 
#define l_axub Po r t Type As ync Rise 
#define l_axubPortTypeAsyncFall 
#define l_axubPortTypeDataIn 
#define l__axubPortTypeDataOut 
#define l_axubPortTypeAddressIn 
#define l_axubPortTypeEnable 
#define l_axubPortTypeScanIn 
#def ine l_axubPortTypeScanOut 
#def ine l_axubPortTypeScanClock 
#define l_axubPortTypeTriDisable 



struct { 

struct libc_name_list_rec *head; 
struct libc_name_list_rec *_tail; 
} name_list; 

struct { 

struct libc_f loat_list_rec *head; 
struct libc_f loat_list_rec *__tail ; 
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float list; 



struct { 

struct libc_f loat_list_list 
struct libc_f loat_list__list 

} float_list_list; 



*head; 
* tail; 



struct any__unit_rec 

struct libc_cell_rec 

enum pad_type_E 
enum variable_E 
enum dont_false_E 
enum signal_type_E 



*unit ; 

*cell; 

pad_type; 
var_type ; 

sa_type; 

sig_type; 



struct libc_oc_power_rail_rec *prp; 
struct libc_bool_opr_rec *bool_opr; 
struct libc_timing_rec *timing; 

}; 

#define YYSTYPE union yystype 

#ifndef LIBC_MEM 
ttdefine LIBC_MEM extern 
#define LIBC_INIT(s) 
#else 

#define LIBC_INIT(s) = s 
#endif 

LIBC_MEM int libc_version LIBC_INIT (33 0) ; 

LIBC_MEM int libc_ignore_f lag LIBC_INIT { 0) ; 
LIBC__MEM int libc_error_count LIBC_INIT { 0) ; 

LIBC_MEM FILE *Aclf LIBC_INIT (NULL) ; 

LIBC_MEM FILE *Sclf LIBC_INIT (NULL) ; 

LIBC_MEM FILE *Sclfl LIBC_INIT (NULL) ; 
3.2 */ 

LIBC_MEM FILE *Mclf LIBC_INIT (NULL) ; 



/* XXX clf file */ 

/* XXX clf file */ 

/* XXX con file for version 

/* (power) Z2Z clf file */ 



/* -- 
LIBC^ 
LIBc] 
LIBc] 
LIBC_ 
LIBc" 
LIBC_ 
LIBC_ 
LIBC_ 
LIBC 



— value 

MEM float 

MEM float 

MEM float 

MEM float 

MEM float 

MEM float 

MEM float 

MEM float 

MEM float 



for process 
1 ibc_p__nom 
libc_t_nom 
libc_v_nom 
libc_p_min 
libc_t_min 
libc_v__min 
libc_p_max 
libc_t_max 
libc V max 



LIBC_ 
LIBC_ 
LIBC_ 
LIBC_^ 
LIBc" 
LIBC_ 
LIBC_ 
LIBC_ 
LIBC 



INIT(l.O); /* 
INIT(25.0) ; 
INIT(3.3); /* 
INIT(0 .8) ; 
INIT(O.O) ; 
INIT(2.9) ; 
INIT(1.2) ; 
INIT{85.0) ; 
INIT(3.6) ; h 



normal process */ 
/* normal temp 

normal volt */ 

min process */ 

min temp */ 

min volt */ 

max process */ 
/* max temp */ 

max volt */ 



LIBC_MEM float cap__scale LIBC INIT(l.O); 
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LIBC_MEM float resist_scale LIBC_INIT ( 1 . 0 ) ; 
LIBC_MEM float time_scale LIBC_INIT ( 1 . 0 ) ; 
LIBC__MEM float watt_scale LIBC_INIT ( 1 . 0 ) ; 
LIBC_MEM float joule_scale LIBC_INIT (1 . 0) ; 



LIBC_MEM struct libc_lib_rec *tech_lib LIBC_INIT (NULL) / 

LIBC__MEM struct libc_k_f actor_rec *kfc LIBC_INIT (NULL) ; 

LIBC_MEM struct libc_k__f actor_rec *sc__kfc LIBC_INIT (NULL) ; /* 

scaling_f actors group */ 

LIBC_MEM struct libc_def _table_rec *def_table LIBC_INIT (NULL) ; 

LIBC_iyiEM struct libc_lu_table_template_rec *lu_table_temp LIBC_INIT (NULL) 

L1BC_MEM struct libc_lu_table_template_rec *plut_temp LIBC_INIT (NULL) ; 

LIBC_MEM struct libc_operating_condition_rec *lib_op_cond LIBC_INIT (NULL) 

LIBC_MEM struct libc_oc_power__rail_rec *lib__prp LIBC_INIT (NULL) ; 

LIBC_MEM struct libc_j>ower_supply_rec *lib_ps LIBC__INIT (NULL) ; 

LIBC_MEiy[ struct libc_timing_range_rec *lib__timing_range LIBC_INIT (NULL) ; 

LIBC__MEM struct libc__type_rec *lib_type__name LIBC_1NIT (NULL) ; 

LIBC__MEM struct libc_wire__load_rec * lib_wire_load LIBC_INIT (NULL) ; 

LIBC_MEM struct libc__wire__load_selection_rec *lib_wire_load_sel 

LIBC_INIT (NULL) ; 

LIBC_MEM struct libc_cell_rec *lib_cell LIBC__INIT (NULL) ; 

LIBC_MEM struct libc_j5in_rec *lib_bundle LIBC_INIT (NULL) ; 

LIBC_MEM struct libc__pin_rec *lib_bus LIBC_INIT (NULL) ; 

LIBC__MEM struct libc_pin_rec *lib_j)in LIBC__INIT (NULL) ; 

/* test_cell */ 

LIBC_MEM struct libc_cell__rec *lib_tc_cell LIBC_INIT (NULL) ; 
LIBC_MEM struct libc_name__list_rec *lib_tc_pin_name LIBC_INIT (NULL) ; 

LIBC_MEM struct libc__f f__latch_rec *lib_f f_latch LIBC_INIT (NULL) ; 

LIBC_MEM struct libc_internal_power *lib_int_jpower LIBC_INIT (NULL) ; 

LIBC__MEM struct libc_leakage_power *1 ib_lkg_power LIBC__INIT (NULL) ; 

LIBC_MEM struct libc_memory_rec *lib_meTnory LIBC_INIT (NULL) ; 

LIBC_MEiyi struct libc_routing_track_rec *lib_routing_track LIBC_INIT (NULL) 

LIBC_MEM struct libc_timing_rec *lib_timing LIBC_INIT (NULL) ; 
LIBC_MEM struct libc_table_val_rec *lib_timing_tbl LIBC_INIT (NULL) ; 

LIBC_MEiyi struct libc_min_pulse_width_rec *lib_mpw LIBC_INIT (NULL) ; 
LIBC_ME]y[ struct libc_minimum_period_rec *lib_mp LIBC__INIT (NULL) ; 

LIBC_MEM struct libc_memory_write__rec *lib_memory_write LIBC_INIT (NULL) ; 
/* */ 

/* libc_cell.c */ 

libc__pin__rec *libc_cell_f ind_pin_by_name (libc_cell_rec *,char *,int) ; 

int libc_cell_get_bundle_idx (libc_cell_rec *,char *) ; 

libc_name__list__rec *libc_cell_bus_name (libc_jpin_rec *) ; 

libc_k_f actor__rec *libc_cell_k_f actor (void) ; 

libc_k__f actor__rec *libc_cell_f ind_sc_group (text_buf f er *) ; 
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/* 

/* libc_def.c */ 

void libc_def_insert (text_buf f er * , text_buf f er * , text_buf f er *) ; 

/* 

/* libc_opr,c */ 

libc_bool__opr_rec *libc_opr_handle (libc_bool_type_E , int) ; 

void libc_oprjprint (FILE * , libc_bool_opr_rec * , libc__cell_rec *,int); 

/* 

/* libc_time.c 



float_buffer *libc_time_copy_f loat_buf { f loat_buf f er *) ; 

int libc__time_f ind_template (text_buffer * , libc_lu_table_template_rec 

* , libc_table_val__rec * ) ; 

void libc_time_handle (int ) ; 

void libc_time_minimum_jperiod (int , float ) ; 



/* 

/* 

/* libc_util.c */ 

any__unit__rec *libc_util_unit (float ) ; 

float_buffer *libc_util_f loat_list2buf f er (libc_f loat_list_rec *) ; 
float_buffer **libc_util_f loat_lists2buf f er (libc_f loat_list__list *) ; 
f loat_buf fer *libc_util_f loat_lists3buf f er (int , int, int, libc_f loat_list_list 
*) ; 

libc_bool_opr_rec *libc_util_bool_opr (libc_bool_type_E, int ) ; 

void libc_util_wire_load_fanout (int , float , float , float, int) / 

void libc_util_wire_load_table (int, int , float) ; 

void libc_util_wl_select (float , float , text_buf fer *) ; 

/* ^^^^=====.^^^^^^^^========^^^^^^==,===^^^^^========^ */ 

#endif /* } */ 
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/* 



#include "libc_def.h" 
#define TRI_TBL_NO 70 

/* ]^ factor */ 

static 

void libc_gen_k_f actor ( 

libc_k_f actor_rec *kfc) 
{ int i; 

char *sc__type [3] ; 

sc_type[0] = "process"; 
sc_type[l] = "temp"; 
sc_type[2] = "volt"; 

if (kf c->kf_name NULL) 

fprintf (Aclf , " ; k_f actor name : %s ;\ii",kfc- 

>kf_name) ; 
else 

fprintf (Aclf , "; k__f actor 

====\n") ; 

for (i=0; i<3;i++) { 

if (kf c->k_cell_rise [i] != 0) 

fprintf (Aclf, " ; k_%s__cell_rise : %G ; \n" , sc_type [i] , kf c- 
>k_cell_rise [i] ) ; 

if (kfc->k__cell_fall [i] != 0) 

fprintf (Aclf, " ; k_%s_cell_f all : %G ; \n" , sc_type [i] , kf c- 
>k__cell_fall [i] ) ; 

if (kf c- >k_cell_leakage_jpower [i] != 0) 

fprintf (Aclf, " ; k_%s_cell_leakage__power : %G ; \n" , sc_type [i] , kf c- 
>k__cel l_leakage_power [i] ) ; 

if (kf c->k_celljpower [i] != 0) 

fprintf (Aclf ; k_%s_cell_power : %G ; \n" , sc_type [i] , kf c- 
>k_cell_power [i] ) ; 

if (kf c->k_drive_fall [i] 1= 0) 

fprintf (Aclf , "; k_%s_drive_f all : %G ; \n" , sc_type [i] , kf c - 
>k_drive_f all [i] ) ; 

if (kf c- >k__drive_rise [i] 1= 0) 

fprintf (Aclf ; k_%s_drive_rise : %G ; \n" , sc_type [i] , kf c- 
>k_drive_rise [i] ) ; 

if (kf c- >k_f all_delay__intercept [i] != 0) 

fprintf (Aclf , "; k_%s_f all_delay_intercept : %G ; \n" , sc_type [i] , kf 
>k_f all_delay_intercept [i] ) ; 

if (kf c- >k_f all_pin_resistance [i ] != 0) 

fprintf (Aclf ; k_%s_f all__pin_resistance : %G ; \n" , sc__type [i] , kf c 
>k_f all_pin_resistance [i] ) ; 

if (kf c- >k_f all_propagation [i] != 0) 
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fprintf (Aclf , " ; k_%s_f all_propagation : %G ; \n" , sc_type [i] , kf c- 
>k__f all_jpropagation [i] ) ; 

if {kfc->k_fall_transition[i] 1= 0) 

fprintf (Aclf , " ; k_%s__f all_transition : %G ; \n" , sc_type [i] , kf c- 
>k_f all_transition [i] ) ; 

if (kf c->k_f all_wire_resistance [i] 1= 0) 

f printf (Aclf , " ; k_%s_f a ll_wire__resi stance : %G ; \n" , sc_type [i ] , kf c- 
>k_f all_wire_resistance [i] ) ; 

if (kf c->k__f all_wor_emitter [i] != 0) 

fprintf (Aclf , " ; k_%s_f all_wor_emitter : %G ; \n" , sc_type [i] , kf c- 
>k_f all__wor_emitter [i] ) ; 

if (kf c->k_f all_wor_intercept [i] != 0) 

fprintf (Aclf , "; k__%s__f all_wor_intercept : %G ; \n" , sc_type [i] , kf c- 
>k__f all_wor_intercept [i] ) ; 

if (kfc->k_hold_fall [i] != 0) 

fprintf (Aclf , k_%s_hold_f all : %G ; \n" , sc_type [i] , kf c- 
>k__hold_f all [i] ) ; 

if (kf c->k_hold_rise [i] i= 0) 

fprintf (Aclf , k_%s_hold_rise : %G ; \n" , sc_type [i] , kf c- 
>k_hold_rise [i] ) ; 

if (kf c- >k_internal_power [i] != 0) 

fprintf (Aclf ; k_%s_internal_power : %G ; \n" , sc_type [i] , kf c- 
>k_internal_power [i] ) ; 

if (kf c->k_intrinsic_fall [i] 1= 0) 

fprintf (Aclf ; k_%s_intrinsic_f all : %G ; \n" , sc_type [i] , kf c- 
>k_intrinsic_f all [i] ) ; 

if (kf c- >k_intrinsic_rise [i] l= 0) 

fprintf (Aclf ; k_%s_intrinsic_rise : %G ; \n" , sc__type [i] , kf c- 
>k_intrinsic__rise [i] ) ; 

if (kf c->k_min_period [i] I- 0) 

fprintf (Aclf ; k_%s_min_period : %G ; \n" , sc_type [i] , kf c- 
>k_min_Jperiod [i] ) ; 

if (kf c->k_min_j)ulse_width_high[i] 1= 0) 

fprintf (Aclf ; k_%s_min_pulse_width_high : %G ; \n" , sc_type [i] , kf c- 
>k_min_pulse_width_high [i] ) ; 

if (kf c->k_min__pulse_width_low [i] 1= 0) 

fprintf (Aclf ; k_%s_min_j5ulse_width_low : %G ; \n" , sc_type [i] , kf c- 
>k_min_J)ulse_width_low [i] ) ; 

if (kf c->k_pin__cap [i] 1= 0) 

fprintf (Aclf ; k__%s_pin_cap : %G ; \n" , sc_type [i] , kf c- >k_pin_cap [i] ) / 
if (kf c->k_jpin_j)ower [i] != 0) 

fprintf (Aclf ; k_%s_pin_j)ower : %G ; \n'\ sc_type [i] , kf c- 
>k_j)in_power [i] ) ; 

if (kf c->k_recovery_f all [i] 0) 

fprintf (Aclf ; k_%s_recovery_f all : %G ; \n" , sc_type [i] , kf c- 
>k_recovery_f all [i] ) ; 

if (kf c->k_recovery__rise [i] 1= 0) 

fprintf (Aclf ; k_%s_recovery_rise : %G ; \n" , sc_typ€ [i] , kf c- 
>k_recovery_rise [i] ) ; 

if (kf c->k_rise_delay_intercept [i] 1= 0) 

fprintf (Aclf ; k_%s_rise_delay_intercept : %G ; \n" , sc__type [i] ,kfc- 
>k_rise__delay_intercept [i] ) ; 

if (kf c->k_rise_j)in_resistance [i] != 0) 

fprintf (Aclf ; k_%s_rise_pin_resi stance : %G / \n" , sc_type [i] , kf c- 
>k_rise_j)in_resistance [i] ) ; 

if (kf c->k_rise__propagation [i] i= 0) 
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fprintf (Aclf , " ; k_%s_rise_propagation : %G ; \n" , sc_type [i] , kf c- 
>k_rise_propagation [i] ) ; 

if (kf c->k_rise_transition [i] != 0) 

fprintf (Aclf , " ; k_%s_rise_transition : %G ; \n" , sc_type [i] , kf c- 
>k_rise_transition [i] ) ; 

if (kf c->k_ri se_wire_resi stance [i] 1= 0) 

fprintf (Aclf / k_%s_rise__wire_resistance : %G ; \n" , sc_type [i] ,kfc- 
>k__rise_wire_resi stance [i] ) ; 

if (kf c->k_rise_wor_emitter [i] 1= 0) 

fprintf (Aclf ; k_%s_rise_wor_emitter : %G ; \n" , sc_type [i] , kf c- 
>k_rise_wor_emitter [i] ) ; 

if (kf c- >k_rise_wor_intercept [i] 1= 0) 

fprintf (Aclf ; k_%s_rise_wor_intercept : %G ; \n" , sc_type [i] , kf c- 
>k_rise__wor__intercept [i] ) ; 

if {kfc->k_setup_fall [i] 1= 0) 

fprintf (Aclf ; k_%s_setup_f all : %G ; \n" , sc_type [i] , kf c- 
>k_setup_f all [i] ) ; 

if (kf c->k_setup_rise [i] != 0) 

fprintf (Aclf ; k_%s_setup_rise : %G ; \n" , sc_type [i] , kf c- 
>k_setup_rise [i] ) ; 

if (kf c->k_slope_f all [i] l= 0) 

fprintf (Aclf ; k_%s__slope_f all : %G ; \n" , sc_type [i] , kf c- 
>k_slope_f all [i] ) ; 

if (kf c->k_slope_rise [i] 1= 0) 

fprintf (Aclf ; k_%s_slope_rise : %G ; \n" , sc_type [i] , kf c- 
>k_slope_rise [i] ) ; 

if (kf c->k_wire_cap [i] !- 0) 

fprintf (Aclf, " ; k__%s__wire_cap : %G ;\n" , sc_type [i] , kf c- >k_wire__cap [i] ) 
if (kf c->k_wire_res [i] 1= 0) 

fprintf (Aclf ; k_%s__wire_res : %G ; \n" , sc_type [i] , kf c- >k_wire res[i]) 

} 

fprintf (Aclf, " ; = = =: = = =: = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =::==: = = = = = =r= = = = = = = = = = \n") 

} 

/* 

Static 

void libc_gen_scaled_value { 
float *k_factor, 

float *min_scaled, /* OUT */ 

float *max_scaled) /* OUT */ 

{ 

(*Tnin_scaled) = ( 1+ (libc_p_min-libc_p__nom) * k_factor[0]) * 

(1+ (libc_t_Tnin-libc_t_nom) * k_factor[l]) * 

(1+ (libc_v__max-libc_v_nom) * k_f actor [2] ) ; 
(*max_scaled) = ( 1+ (libcj)_max-libc__p_noTn) * k_factor[0]) * 

(1+ (libc_t_Tnax-libc_t_nom) * k_factor[l]) * 

(1+ (libc_v_min-libc__v__nom) * k_factor [2] ) ; 

} 

/* = = = = = = = =: = = = == = ^. = . = == = = = = = = = = = = ... = = . = = = = = = = = = = */ 

Static char *timing_table_name [8] = 

{ "\"RiseCellDelayTable\"" , "\"FallCellDelayTable\" " , 
"\ "RisePropagationTable\ " " , "\ "FallPropagationTable\ " " , 
"\"RiseTransitionTable\" " , "\ "FallTransitionTable\" " , 
"\ "RiseConstraintTable\ " " , " \ "FallConstraintTable\ " " } ; 
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static 

void libc__gen__table_natne ( 
char *cell_name, 
char *from_pin, 
char *to_pin, 
char unate, 
int tbl_idX; 
int min_nom_max) 

{ 



/* 0,1,2 */ 



fprintf (Aclf , "\ "%s : %s : %s%c%d: %d\" " , cell_name, f rom_j)in, to_j>in,unate, tbl_idx, mi 
n_nom_Tnax) ; 

} 



Static 

char *libc_gen_varE2str ( 

enum variable_E varE) 
{ switch (varE) { 

case INPUT_NET_TRANSITION : 

/* used */ 

case TOTAL_OUTPUT_NET__CAPACITANCE 
/* used */ 

case OUTPUT_NET_LENGTH : 
return ( "\ "OutputNetLength\ " " ) ; 
case OUTPUT_NET_WIRE__CAP : 
case OUTPUT_NET__PIN_CAP : 
return ( " \ "OutputNetPinCap\ " " ) ; 



return ( "\ " InputNetTransition\ " " ) ; 
return ( " \ "OutputCapacitance\ " " ) ; 

return ( " \ "OutputNetWireCap\ " " ) ; 



case RELATED_OUT_TOTAL_OUTPUT_NET_CAP : 
return ( " \ "RelatedOutTotalNetCapX " " ) ; 

case RELATED_OUT_OUTPUT_NET__LENGTH : 
return ( "\ "RelatedOutputOutNetLength\ " " ) / 
case RELATED_OUT_OUTPUT_NET_WIRE_CAP : 
return ( " \ "RelatedOutputOutNetWireCapX " " ) ; 
case RELATED_OUT_OUTPUT_NET_PIN_CAP : 
return ( " \ "RelatedOutputOutNetPinCap\ " " ) ; 

case CONSTRAINED_PIN_TRANSITION : 

return ( "\"ConstrainedPinTransition\ ; /* used */ 

case RELATED_PIN_TRANSITION : return (" \ "RelatedPinTransi tion\ ; 

/* used */ 

case OUTPUT_PIN_TRANSITION : return ( "\ "OutputPinTrans it ion\ ; 

case CONNECT_DELAy : return (" \ "ConnectDelay\ ; 



} 

return (NULL) ; 



/* VARIABLE E NONE */ 



Static 

char *libc_gen_timetype2str ( 
libc_timing_type_E tt) 
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switch(tt) { 

case RISING_EDGE_T : 
case FALLING__EDGE_T : 
case PRESET_T : 
case CLEAR_T : 
case HOLD_RISING_T : 
case HOLD_FALLING_T : 
case SETUP_RISING_T : 
case SETUP_FALLING_T : 
case RECOVERY_RISING_T : 
case RECOVERY_FALLING_T : 
case THREE_STATE_DISABLE_T 
case THREE_STATE_ENABLE_T : 
case RE]yiOVAL_RISING__T : 
case REMOVAL_FALLING__T : 
case COMBINATIONAL T : 



return 
return 
return 
return 
return 
return 
return 
return 



return 
return 
return 

return 



("\"CLOCK_RISING\" ") / 
( " \ " CLOCK_FALLING\ " " ) ; 
("\"PRESET\"") ; 
("\"CLEAR\"") ; 
{"\"HOLD_RISING\"") ; 
{ " \ "HOLD_FALLING\ " " ) ; 
{ " \ "SETUP__RISING\ " ) ; 
( " \ " SETUP_FALLING\ " " ) ; 
return { " \ '"RECOVERY_RISING\ " " ) ; 
return ( " \ "RECOVERY_FALLING\ " " ) 
("\"DISABLE\" ") ; 
("\"PATH\" 'M ; 
( " \ "REMOVAL_RISING\ " ) ; 
return { " \ "REMOVAL_FALLING\ " " ) ; 
("\"PATH\" ") ; 



use 



use 



case SKEW_RISING_T : 
case SKEW_FALLING__T : 

/ 

case NON_SEQ_HOLD_RISING_T : 
case NON_SEQ_HOLD_FALLING_T : 
case NON_SEQ_SETUP_RISING_T : 
case NON_SEQ_SETUP__FALLING_T 
case NOCHANGE_HIGH_HIGH_T : 
case NOCHANGE_HIGH_LOW_T : 
case NOCHANGE_LOW__HIGH_T : 
case NOCHANGE_LOW_LOW_T : 

} 

assert ( 0) ; 
return ( " " ) ; 



return ( " \ " SKEW_RIS ING\ " " ; 



return ( " \ " SKEW_FALLING\ " " ) ; / * 



< - - no 



< - - no 



return ( " \ "NONSEQ_HOLD_RISING\ " " ) ; 
return ( " \ "NONSEQ__HOLD_FALLING\ " " ) ; 
return ( " \ "NONSEQ_SETUP_RISING\ " " ) ; 
: return ( " \ "NONSEQ_SETUP_FALLING\ " " ) ; 

return ( " \ "NOCHANGE_HIGH_HIGH\ " " ) ; 
return ( " \ "NOCHANGE_HIGH_LOW\ " " ) / 
return { " \ "NOCHANGE_LOW_HIGH\ " " ) ; 

return { " \ "NOCHANGE_LOW_LOW\ " " ) ; 



static 

char *libc_gen_unate2str ( 

libc_timing_sense_E ts) 

{ switch (ts) { 

case POSITIVE_UNATE_E : 
case NEGATIVE_UNATE_E : 
default : 



} 



} 



return ( " \ "noninvert \ " " ) ; 
return ("\ "invert \" ") ; 
return ("\"nonunate\" ") ; 



static 

char libc_gen_unate2char ( 

libc_timing_sense_E ts) 

{ switch (ts) { 

case POSITIVE_UNATE_E : 
case NEGATIVE_UNATE_E : 
default : 



} 



} 



return ( ' + ' ) 
return ( ' - ' ) 
return ( ' : ' ) 
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static 

void libc_gen_get_k__f act or_t able { 
1 ibc_t iming_type_E t_type , 
libc_k__f actor_rec *kf c , 
float **kfl, 
float **kf2) 



{ 



switch (t_type) { 

case COMBINATIONAL_T : 
case RISING_EDGE_T : 
case FALLING_EDGE_T : 
case PRESET_T : 
case CLEAR_T : 

case THREE_STATE_DISABLE_T : 
case THREE_STATE_ENABLE_T : 
/* unchange */ 

/* (*kfl) = (float *) (kf c->k_intrinsic_rise) ; or {kf c- >k_cell_rise) 
/* (*kf2) = (float *) (kfc->k_intrinsic_fall) ; or (kf c->k_cell_f all) 

break; 
case H0LD_R1SING_T : 
case HOLD_FALLING_T : 
case NON_SEQ_HOLD__RISING_T : 
case NON_SEQ_HOLD_FALLING_T : 

(*kfl) = (float *) (kfc->k_hold_rise) ; 

(*kf2) = (float *) (kfc->k__hold_fall) ; 

breaks- 
case SETUP_RISING__T : 
case SETUP_FALLING_T : 
case NON_SEQ_SETUP_RISING_T : 
case NON_SEQ_SETUP_FALLING_T : 

(*kfl) = (float *) (kf c->k_setup_rise) ; 

(*kf2) = (float *) (kfc->k_setup_fall) ; 

break; 

case RECOVERY_RISING_T : 
case RECOVERY__FALLING_T : 

(*kf 1) = (float *) (kf c->k_recovery_rise) ; 

(*kf2) = (float *) (kfc->k_recovery_fall) ; 
break; 

case REMOVAL_RISING_T : 
case REMOVAL_FALLING_T : 

(*kf 1) = (float *) (kf c->k_removal_rise) ; 

(*kf2) = (float *) (kfc->k_removal_fall) ; 

break; 
case SKEW_RISING_T : 
case SKEW_FALLING__T : 

(*kf 1) = (float *) (kfc->k_skew_rise) ; 

(*kf2) = (float *) (kfc->k_skew_fall) ; 

break; 

case NOCHANGE_HIGH_HIGH_T : 
case NOCHANGE_HIGH_LOW_T : 
case NOCHANGE_LOW_HIGH_T : 
case NOCHANGE LOW LOW T : 
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{*kf 1) 
(*kf2) 
break; 



(f loat *) (kf c->k_iiochange_rise) ; 
(float *) (kf c->k_nochange_f all) ; 



static 

void libc_gen_get_scaling_f actor { 
int idx, 

1 ibc_t iTning_type_E t_type , 
libc_k_f actor__rec *kfc, 
float *min__scaled, 
float *max_scaled) 
{ float *k__factor, *kf 1, *kf2; 

if {idx >= 6 && idx < TRI_TBL_NO) { 
kf 1 = (float *) {kfc->k_cell_rise) ; 
kf2 = (float *) {kfc->k_cell_fall) ; 
libc_gen_get_k_factor_table (t_type,kfc, &kf 1, &kf2) ; 
k_f actor = ( (idx%2) ==0) ? kfl : kf 2 ; 



} 

else { 

switch { (idx 



case 
case 
case 
case 
case 
case 



% 10)) { 
k_f actor 
k_f actor 
k_f actor 
k_f actor 
k_f actor 
k factor 



} 



(float 
(float 
(float 
(float 
(float 
(float 



(kf c->k_cell_rise) ; break; 

{kf c->k_cell__f all) ; break; 

(kf c->k_rise propagation) ; break; 

(kf c->k_f all_propagation) ; break; 

(kf c- >k_rise_transition) ; break; 

{kfc->k fall transition); break; 



} 

libc_gen__scaled_value (k_f actor, min_scaled,max_scaled) ; 



static 

void libc_gen_lD_array { 
FILE *fp, 

float_buffer *array, 
float k_factor) 
{ int i,size; 

size = sizeof_float_buffer (array) ; 
assert (size > 0) ; 
f print f (fp, " (") ; 
for (i = 0 ; i<size; i-i-f-) 

fprintf (fp, "%G array [i] *k__f actor) ; 
f print f (fp, ") ") ; 



static 

void libc_gen_timing_values ^ 
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FILE *fp, 
int sizel; 
int size2, 
int sizes, 

float_buffer *array, 
float k__factor) 
int i;j,k; 

if (size2 == 0) { /* ID */ 

f print f {fp, "\n * (") ; 
for (i=0 ; i<sizel ; i++) 

fprintf (fp, "%G array [i] * k_f actor) ; 

} 

else if (size3 0) { /* 2D */ 
for (i=0 ; i<sizel ; i++) { 
if (i == 0) 

fprintf (fp, "\n ' (") ; 
else 

fprintf (fp, "\n ") ; 
for ( j =0 ; j <size2 ; j ++) 

fprintf (fp, "%G array [i*size2+j ] * k_f actor) ; 

} 

} 

else { /* 3D */ 

for (i=0 ; i<sizel ; i++) { 
if (i 0) 

fprintf (fp, "\n ' (") ; 
else 

fprintf (fp, "\n ") ; 
for ( j =0 ; j <size2 ; j++) { 
for {k=0 ; k<size3 ; k++) 

fprintf (fp, "%G array [{ i*size2+j ) *size3+k] * k__f actor) ; 

} 

} 

} 

fprintf (fp, ") \n") ; 



*/ 

static 

float 1 ibc_gen__varE2 scale ( 
enum variable_E varE) 
{ switch (varE) { 

case INPUT_NET_TRANSITION : 

case TOTAL_OUTPUT_NET_CAPACITANCE : 

case OUTPUT_NET_LENGTH : 

case OUTPUT_NET_WIRE_CAP : 

case OUTPUT_MET_PIN_CAP : 

case RELATED_OUT_TOTAL__OUTPUT_NET_CAP 
case RELATED_OUT_OUTPUT_NET_LENGTH : 
case RELATED_OUT_OUTPUT_NET_WIRE_CAP 
case RELATED_OUT_OUTPUT_NET_PIN_CAP : 

case CONSTRAINED_PIN_TRANSITION : 
case RELATED PIN TRANSITION : 



return (time_scale) 
return (cap__scale) ; 
return (1 . 0) ; 
return (cap_scale) ; 
return (cap_scale) ; 

return (cap_scale) ; 
return (1 . 0) ; 
return (cap_scale) ; 
return (cap_scale) ; 

return (time_scale) 
return (time scale) 



A-LIBC-105 



libc_genx 



case OUTPUT_PIN_TRANSITION 
case CONNECT DELAY : 



} 

return (1.0) ; 



return (time_scale) ; 
return (time scale); 



static 

void libc_gen_clf_create_one_table { 
char *cell_name, 
char *from_pin, 
char *to_pin, 
char unate, 
int tbl_idx, 

int min_nom__Tnax , / * min : 0 , nom : 1 , max : 2 * / 

float k__f actor, 

libc_table_val__rec * table) 
{ char *idx_typel, *idx_type2 , *idx_type3 ; 
variable__E vl,v2,v3; 
int sizel, size2 , size3 , tbx__name_idx; 

fprintf (Aclf , " {clf CreateTable ") ; 

libc_gen_table_name (cell_name, from_j)in, to__pin, unate, tbl__idx, min__noin__max) ; 
if (tbl_idx >- TRI_TBL_NO) 

tbl_idx %= 10; 
if (tbl_idx > 6) 

tbx_name_idx = {tbl_idx%2)? 7:6; 
else 

tbx_naTne_idx = tbl__idx; 
fprintf (Ac If , " %s\n ' ( " / tiTning_table_name [tbx_name_idx] ) ; 

if (table NULL) { /* <--- no value (table) */ 

fprintf (Aclf , " ) ' ( 0 ) \n) \n" ) ; 

} 

else if (table->_tbl == NULL) { /* scalar table */ 

fprintf (Aclf, ") '( %G) \n) \n" , table- >scalar_val * time_scale) ; 

} 

else { 

vl = table - >_tbl - >variable__l ; 

v2 = table- >_tbl - >variable_2 ; 

v3 = table- >__tbl - >variable_3 ; 

idx__typel = libc_gen_varE2str (vl) ; 
idx_type2 = libc_gen__varE2str (v2) ; 
idx_type3 = libc__gen_varE2str (v3) ; 

sizel = sizeof_float_buffer (table- >indexl) ; 
fprintf (Aclf, " (%s " , idx_typel) ; 

libc_gen__lD_array (Aclf , table- >indexl , libc_gen_varE2 scale (vl) ) ; 
if {idx__type2 1= NULL) { 

size2 = sizeof_float_buffer (table- >index2) ; 

fprintf (Aclf ,") \n (%s " , idx_type2 ) ; 

libc__gen_lD_array (Aclf , table- >index2 , libc_gen_varE2 scale (v2) ) ; 
if {idx_type3 1= NULL) { 

size3 = sizeof_float_buffer (table- >index3) ; 

fprintf (Aclf ,") \n (%s " , idx_type3 ) ; 

libc_gen_lD_array (Aclf , table- >index3, libc_gen_varE2scale (v3) ) ; 
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f print f {Aclf , "))"); 
libc_gen__timing__values (Aclf , sizel , size2 , size3 , table- >values , k_f actor 
* time_scale) ; 

} 

else { 

fprintf (Aclf, "))"); 
libc_gen_timing_values (Aclf , sizel , size2 , 0 , table- >values , k_f actor * 
time_scale) ; 

} 

} 

else { 

fprintf (Aclf, "))"); 
libc_gen_tiTning_values (Aclf, sizel, 0,0, table- >values , k__f actor * 
time_scale) ; 

} 

fprintf (Aclf, ")\n") ; 

} 

} 

/* 

Static 

void libc__gen_clf__create__table ( 
char *cell_name, 
char *from_pin, 
char *tojiin, 
char unate, 
int tbl_idx, 
libc_k_f actor_rec *kfc, 

libc_timing_type_E t_type, 
libc_table_val_rec *table, 

int index_t[]) /* OUT for min_nom_max */ 

{ float Tnin_scaled, max_scaled; 
libc_gen_get__scaling_f actor (tbl_idx, t_type, kf c, &min_scaled, &max_scaled) ; 
index_t[0] = 0; /* min */ 
index_t[l] = 1; /* nom */ 
index__t[2] = 2; /* max */ 
if (min_scaled ==1.0 || table == NULL) 

index_t[0] = 1; 
else 

libc_gen_clf_create_one_table (cell_name, f rom_pin, to_j>in, unate , tbl_idx, 0 , min__s 
caled, table) ; 

libc_gen_clf_create_one_table (cell_name, from_j)in, to_j>in, unate, tbl_idx, 1, 1 .0, t 
able) ; 

if (Tnax_scaled == l . 0 | | table == NULL) 

index_t[2] = 1; 
else 

libc_gen_clf_create_one__table (cell__name, f romjiin, to_j> in, unate , tbl__idx, 2,max_s 
caled, table) ; 

} 

/* - */ 
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static 

int libc_gen_tbx_idx { 

libc_timing_type_E t_type, 
int default value) 



{ 



switch (t__type) { 

case HOLD_RISIMG_T : 
case HOLD_FALLING_T : 
case SETUP__RISING_T : 
case SETUP_FALLING_T : 
case RECOVERY_RISING_T : 
case RECOVERY_FALLING_T : 
case REMOVAL_RISING_T : 
case REMOVAL_FALLING_T : 
case SKEW_RISING__T : 
case SKEW__FALLING_T : 
case NON_SEQ_HOLD__RISING_T : 
case NON_SEQ_HOLD_FALLING_T : 
case NON_SEQ_SETUP_RISING__T : 
case NON__SEQ__SETUP_FALLING_T 
case NOCHANGE__HIGH_HIGH_T : 
case NOCHANGE_HIGH_LOW_T : 
case NOCHANGE_LOW_HIGH_T : 
case NOCHANGE_LOW__LOW__T : 
default : 

} 



return (6) ; 

return (8) ; 

return (10) 

return (12) 

return (2 0) 

return (22) 

return (24) 

return (26) 

return (30) 

return (32) 

return (40) 

return (42) 

return (44) 

return (46) 

return (50) 
return (52) 
return (54) 

return (56) ; 

return (default value) 



7 



libc_pin_rec *libc__cell_f ind_j)in_by_name (libc_cell_rec *,char *,int); 
libc_name_list_rec *libc_cell_bus_name {libc_pin_rec *) ; 

static 

void libc_gen_TLU___timing ( 

libc_tiTning_rec ^timing) 

{ char *cell_name; 

libc_cell_rec *curr__cell ; 
libc_pin_rec *f rom_pp , *to_pp; 
libc_name_list_rec *f roTn_pin, *to__pin; 

libc_name_list_rec *npl, *next_npl, *nplp, *np2 , *next_np2 , *np2p; 
libc_name_list_rec *npl_head, *np2_head; 
libc__k_f actor_rec *kf c; 

int rise_tbl [3] , fall_tbl [3] ,rise_tbll [3] , fall_tbll [3] ; 
libc_timing__type_E t_type; 
int i, j , tbl_idx, tri_idx; 
int iidx, j idxl , j idx2 , oidx; 
char unate; 



curr_cell = timing- >_current__pin->__current_ce 11 ; 

unate = libc_gen_unate2char (timing- >timing_sense) ; 

cell_name = curr_cell->cell_name; 

from_jpin = timing- >rel at ed_p in; 

to_pin = timing- >_current__pin- >pin_name; 

kfc = (curr_cell->_scaling_f actors) ? curr_cell->_scaling_f actors 

tech lib->k factor; 
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t__type = timing- >timing_type; 

for (np2=toj)in;np2 ! =NULL; np2=np2 - >next ) { 

oidx = libc_cell_get__bundle__idx {curr_cell , np2 - >name) ; 

next_np2 = np2->next; 
np2->next = NULL; 

to_pp = libc_cell__find_jpin_by_name{curr_cell,np2->name, -99999) ; 
np2_head = (to_pp->is_bus) ? libc__cell_bus_name ( to_jpp) : np2 / 
jidx2 = (to_jpp->is__bus) ? 0 : -99999; 
for (np2p=np2_head;np2p I =NULL;np2p=np2p->next) { 

for (npl=f rom_pin;npl 1 =NULL;npl=npl- >next) { 
next_npl = npl->next; 
npl->next = NULL; 

from_j)p = libc__cell__f ind__pin_by_naTne (curr_cell , npl->name, -99999) ; 
if (fromjpp 1= NULL) { 

npl_head = {from_j)p-> members i= NULL)? f rom_pp->members : 

(f rom_pp->is_bus) ? libc_cell__bus_name (f rom_j)p) : npl; 
jidxl = (f rom_pp->members 1= NULL || f rom_j)p- >is_bus) ? 0 : -99999 

} 

else { 

npl_head = npl; 
jidxl = -99999; 

} 

for ( np lp= np l_he ad ; np Ip ] =NULL ; np Ip =np Ip - > next ) { 
if (jidxl -99999) /* pin -> pin/bundle/bus */ 

iidx = -99999; 

else if (oidx 1= -99999) { /* bundle/bus -> bundle */ 

if (jidxl != oidx) 
goto next_jidxl; 
iidx = oidx; 

} 

else if (jidx2 != -99999) { /* bundle/bus -> bus */ 
if (jidxl 1= jidx2) 

goto next_jidxl; 
iidx = jidxl; 

} 

else /* bundle/bus -> pin */ 

iidx = jidxl; 

switch (t_type) { 
case CLEAR_T : 

if (timing->timing_sense == POSITIVE_UNATE_E) 
f rom_pp->pin_type |= l_axubPortTypeAsyncFall; 
else 

f rom_pp->pin_type |^ l_axubPortTypeAsyncRise; 
break; 
case PRESET_T : 

if (timing->timing__sense == POSITIVE_UNATE_E) 
f rom_jDp->pin_type j= l_axubPortTypeAsyncRise; 
else 

f rom__pp->pin_type |= l_axubPortTypeAsyncFall; 
break; 

case THREE_STATE_DISABLE_T : 
case THREE_STATE__ENABLE_T : 

f rom__pp->pin_type |= l_axubPortTypeTriDi sable; 

to_pp->pin_type |= l_axubPortTypeTri ; 
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break ; 
case RISING_EDGE_T : 
case FALLING_EDGE_T : 

to_pp - >pin_type | = l_axubPortTypeDataOut ; 

breaks- 
case SETUP__RISING_T : 
case SETUP_FALLING_T : 
case NON_SEQ_SETUP_RISING_T : 
case NON_SEQ_SETUP_FALLING_T : 

toj>p->pin_type 1= l_axubPortTypeDataIn; 

f roTn_pp->pin_type |= l_axubPortTypeClock; 

break; 

} 

tri_idx = 0; 

switch (t_type) { 

case COMBINATIONAL__T : 
case RISING_EDGE__T : 
case FALLING_EDGE_T : 
case PRESET_T : 
case CLEAR_T : 

case THREE_STATE_DISABLE__T : 

case THREE_STATE_ENABLE_T : 

if (t__type == THREE_STATE_DISABLE_T) 

tri_idx = TRI_TBL_NO; 

if (t_type THREE__STATE_ENABLE_T) 
tri_idx = TRI_TBL_NO -f 10; 

if (timing- >cell_rise 1= NULL | | timing- >cell_f all 1= NULL) { 
tbl_icix = 0; 

libc_gen_clf_create_table (cell_name , nplp- >name , np2p- 
>name , unate , tri_idx+0 , 

kfc, t_type, timing- >cell_rise, rise_tbl) ; 
1 ibc_gen_cl f _create_t able { eel l_name , nplp - >name , np2p - 
>name, unate, tri_idx+l , 

kf c , t_type, timing- >cell_f all , f all_tbl) ; 

else if (timing- >rise_propagation != NULL || timing- 
>f all_propagation 1= NULL) { 
tbl_idx = 2; 

1 ibc__gen_cl f _create_t able (eel l_name , nplp - >name , np2p - 
>name , unate , tri__idx+2 , 

kf c, t_type, timing- >rise_propagat ion, rise_tbl} ; 
1 ibc_gen_cl f _creat e_t able (eel l_name , nplp - >name , np2p - 
>name, unate, tri_idx+3 , 

kf e, t_type, timing- >fall_propagat ion, fall_tbl) ; 

} 

if (timing->rise__transition != NULL || timing->f all_transition 

!= NULL) { 

libe_gen__clf_create_table (cell_name , nplp->name, np2p- 
>name , unate , tri_idx+4 , 

kf c , t_type, timing- >rise_transition, rise_tbll) ; 
libc_gen_clf_create_table (cell_name, nplp->name, np2p- 
>name, unate , tri__idx+5 ; 

kf e , t__type, timing->f all_transition, fall__tbll) ; 

} 

break ; 
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/* default : */ 

case HOLD_RISING_T : 
case HOLD__FALLING_T : 
case SETUP_RISING_T : 
case SETUP_FALLING__T : 
case RECOVERY_RISING_T : 
case RECOVERY_FALLING_T : 
case REiyiOVAL_RISING_T : 
case REMOVAL_FALLING_T : 
case SKEW_RISING_T : 
case SKEW_FALLING_T : 
case NON_SEQ_HOLD_RISING_T : 
case NON__SEQ_HOLD__FALLING_T : 
case NON_SEQ_SETUP_RISING_T : 
case NON_SEQ_SETUP_FALLING_T : 
case NOCHANGE_HIGH_HIGH_T : 
case NOCHANGE_HIGH_LOW_T : 
case NOCHANGE_LOW_HIGH__T : 
case NOCHANGE_LOW_LOW_T : 

if ( timing- >rise__constraint 1= NULL || timing- >fall_constraint) 

{ 

tbl_idx = libc_gen_tbx_idx (t_type, 10) ; 
libc_gen_clf_create_table (cell_name, nplp- >name , np2p- 
>name , unate , tbl_idx, 

kf c, t_type, timing- >rise_constraint , rise_tbl) ; 
libc_gen_clf_create_table (cell__name, nplp->name, np2p- 
>name , unate , tbl_idx+l , 

kf c, t_type, timing- >fall_constraint , f all___tbl) ; 

} 

break ; 

} 

/* generate def ineTimeTLU */ 

if (t_type == SKEW_R1SING_T | | t_type == SKEW_FALLING_T) { 

fprintf (Aclf , " (defineCondTimingSkewTLU \"%s\" \"%s\" \"%s\»' 
\"%s\" \"%s\" \"" , cell_name, 

nplp->name, (t_type-=SKEW_RISING_T) ?"RISE" : "FALL", 
np2p->name, (t_type===SKEW_RISING_T} ?"RISE" : "FALL") ; 
libc_opr__print (Aclf , timing- >when__start , cur r_ce 11 , iidx) ; 
fprintf (Aclf, "\" \"") ; 

libc__op reprint (Aclf , timing- >when_end, curr_cell, iidx) ; 
fprintf (Aclf , " \ " \n ' ( " ) ; 
for (i=0;i<3;i++) { 

libc_gen_table_name (cell_name , nplp->name , np2p- 
>name, unate, tbl_idx, rise_tbl [i] ) ; 

fprintf (Aclf, " ") ; 

libc_gen_table_name (cell_name , nplp->name, np2p- 
>name, unate, tbl__idx+l , f all_tbl [i] ) ; 

fprintf (Aclf, (i==2) ?") ) \n" : " ") ; 

} 

} 

else { /* normal def ineTimeTLU */ 

if (timing- >when 1= NULL | | timing- >when_start != NULL | | timing- 
>when_end 1= NULL) { 

fprintf (Aclf (def ineCondTimeTLU \"%s\" \"%s\" \"%s\" %s %s\n 
\ " " , cell_name , nplp- >name , np2p- >name , 
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libc__gen_unate2str (timing- 
>timing_sense) , libc_gen_timetype2str ( t_type) ) ; 

libc_opr_j)rint (Aclf, timing- >when, curr_cell, iidx) ; 
fprintf {Aclf , "\" \"") ; 

libc_opr jrint (Aclf , timing- >when_s tart , curr_cell ; iidx) ; 
fprintf (Aclf , "\" \"") ; 

libc_oprjprint (Aclf , timing- >when_end, curr_cell , iidx) ; 
fprintf (Aclf, "\"\n") ; 

} 

else { 

fprintf (Aclf (defineTimeTLU \"%s\" \"%s\" \"%s\" %s 
%s\n" , cell_name,nplp->name,np2p->name, 

libc_gen_unate2str {timing - 
>timing_sense) , libc__gen_timetype2str (t__type) ) ; 

} 

fprintf (Aclf , " ' (") ; 
for (i=0;i<3;i++) { 

libc_gen_table_name (cell_name , nplp- >name , np2p- 
>name , unate , tri_idx+tbl_idx, rise_tbl [i] ) ; 
fprintf (Aclf , " ") ; 

libc_gen_table_name (cell_name, nplp- >name, np2p- 
>name, unate, tri_idx+tbl_idx+l, f all_tbl [i] ) ; 

fprintf (Aclf , (i==2} ?") \n '{":" ") ; 

if {timing->rise_transition != NULL | | timing- >fall_transition) { 
for (i=0;i<3;i++) { 

libc_gen_table_name (cell_name , nplp- >name , np2p- 
>name,unate, tri_idx+4,rise__tbll [i] ) ; 

fprintf (Aclf, " ") ; 

libc_gen_table_name (cell__name , nplp- > name, np2p- 
>name,unate, tri__idx+5, fall_tbll [i] ) ; 

fprintf (Aclf, (i==2) ?") ) \n" : " ") ; 

} 

} 

else 

fprintf (Aclf, ") ) \n") ; 

} 

next_jidxl : 

if (from__pp 1= NULL) 

jidxl += (f rom_pp->raembers '= NULL || f rom_jpp->is_bus) ? 1 : 0; 

} 

npl->next = next_npl; 

if (from_pp != NULL && f rom_j>p- >is_bus ) 
f ree_libc_name_list_rec (npl_head) ; 

} 

if (to_pp->is__bus) 
j idx2++; 

} 

np2->next = next_np2 ; 
if (to_jpp->is_bus) 

f ree_libc_name_list_rec (np2_head) ; 

} 

} 

/* */ 

/* */ 
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/* pin(X) 

* bundle (A), A1,A2, bundle {B> , Bl , B2 

* bus(C) C[1],C[2], bus(D) D[1],D[2] 
* 



* 


timing 


A- 


>B 


==> 


A1->B1, A2->B2 


* 


function : 


B 


= A 


= = > 


Bl = Al; B2 = A2 


* 


timing 


X- 


>B 


= = > 


X->B1, X->B2 


* 


function 


B 


= X 




Bl = X, B2 = X 


* 


timing 


A- 


>X 




A1->X, A2->X 


* 


function 


X 


= A 




(shall not happen) 




timing 


C- 


•>D 




C[1]->D[1], C[2]->D[2] 


* 


function 


: D 


= C 




D[l] = C[l] , D[2] = C[2] 


* 


timing 


: X- 


->D 




X->D[1] , X->D[2] 


* 


function 


: D 


= X 




D[l] = X, D[2] = X 




timing 


: C- 


->X 




C[1]->X, C[2]->X 




function 


: X 


= C 




(shall not happen) 



static 

void libc__gen_linear_timing ( 

1 ibc_t iming_rec * t iming ) 
{ char *cell_name; 

libc_cell_rec *curr_cell; 

libc_j)in_rec *from_pp, *to_pp; 

libc_name_list_rec *f rornjin, *to_j)in; 

libc_name_list_rec *npl, *next_npl, *nplp, *np2 , *next_np2 , *np2p; 
libc_name_list_rec *npl_head, *np2_head; 
libc_timing_type_E t_type; 
libc_k_factor_rec *kfc; 

float *k_f actor, *kf 1, *kf 2 , min_scaled,max_scaled; 
float int_rise [3] , int_f all [3] ; 
float slope_rise [3] , slope_f all [3] ; 
float res_rise [3] , res_fall [3] ; 
int i, iidx, jidxl, jidx2 ,oidx; 

assert (timing- >_current_j)in->members == NULL) ; 

curr_cell = timing- >_current_pin->_curr en t_cel 1 ; 

cell_name = curr_cell->cell_name; 

from_j)in = timing- >related_j)in; 

to_pin = timing- >_cur ran t_j) in- >pin_name; 

kfc = (curr_cell ->_scaling_f actors) ? curr_cell - >_scaling_f actors 

tech_lib->k_f actor; 

t_type = timing- >timing_type ; 

kfl = (float *) (kf c->k_intrinsic_rise) ; /* default value */ 

kf2 = (float *) (kfc->k_intrinsic__fall) ; /* default value */ 

libc_gen_get_k_factor_table ( t_type , kf c , &:kf 1 , &kf 2) ; 

k_f actor - kfl; 

libc_gen_scaled_value (k_f actor, Scmin_scaled, &max_scaled) ; 
int_rise[0] = timing- >intrinsic__rise * time_scale * min__scaled; 
int_rise [1] = timing- >intrinsic_rise * time_scale; 
int rise [2] = timing- >intrinsic_rise * time_scale * max_scaled; 
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k_f actor = kf2; 

libc_gen_scaled_value (k_f actor, £cmin_scaled, &max_scaled) ; 
int_fall[0] = timing->intrinsic_fall * tirae^scale * min_scaled; 
int_fall[l] = timing->intrinsic_f all * time_scale; 
int__fall[2] = timing->intrinsic_f all * time_scale * max^scaled; 

/* add time_scale in here */ 

k_factor = (float *) (kf c->k__slope_rise) ; 
libc_gen_scaled_value (k_f actor , £cmin_scaled, &max__scaled) ; 
slope_rise [0] ^ timing->slope_rise * min_scaled/ 
slope_rise [1] = timing- >slope_rise ; 
^^oP^_^^s^ t2] = timing- >slope_rise * max_scaled; 

/* add time__scale in here */ 

k_factor = (float *) (kfc->k_slope_fall) ; 
li^c_9en_scaled_value (k_f actor , &min_scaled, &:max_scaled) ; 
slope_fall [0] = timing->slope_fall * min_scaled/ 
slope_fall [1] = timing->slope_fall ; 
slope_f all [2] = timing- >slope_f all * max_scaled; 

k_factor = (float *) (kfc->k_drive_rise) ; 
libc_gen_scaled_value (k_f actor , &min_scaled, &:max_scaled) ; 
res_rise[0] = timing- >rise_resistance * resist_scale * min_scaled; 
res_rise[l] = timing->rise_resistance * resist_scale; 
res_rise[2] = timing- >rise_resistance * resist__scale * max_scaled; 

k_factor = (float *) {kfc->k_drive_fall) ; 
libc_gen_scaled_value (k_f actor, &min_scaled, &max_scaled) ; 
res_fall[0] = timing- >fall_resistance * resist_scale * min_scaled; 
res_fall[l] = timing- >fall_resistance * resist_scale; 
res_fall[2] = timing->f all_resistance * resist_scale * max_scaled; 

for (np2=to_pin;np2 i =NULL;np2=np2 - >next) { 

oidx = libc_cell_get_bundle_idx{curr_cell,np2->name) ; 

next__np2 = np2->next; 
np2->next = NULL; 

to_pp = libc_cell_find_pin_by_name(curr_cell,np2->name, -99999) ; 
np2_head = (to _pp->is_bus) ? libc_cell_bus_name ( to_j)p) : np2 ; 
jidx2 ~ {to_j)p->is_bus) ? 0 : -99999; 
for (np2p=np2_head;np2pi=:NULL;np2p=np2p->next) { 

for (npl=from__pin;npl i =NULL; npl=npl- >next ) { 
next_npl = npl->next; 
npl->next = NULL; 

from_j)p = libc_cell_find_j>in_by_name (curr__cell,npl->name, -99999) ; 
if (from_pp i= NULL) { 

npl_head = (f rom_pp->members != NULL)? f romjpp- >members : 

(f rom_pp->is_bus) ? libc_cell__bus__name (f rom_j)p) : npl; 
jidxl = (f rom_pp->members != NULL || from_jpp->is_bus) ? 0 : -99999 

else { 

npl_head = npl; 
jidxl = -99999; 

} 

for (nplp=npl_head;nplp]=NULL;nplp=nplp->next) { 
if (jidxl -99999) /* pin -> pin/bundle/bus */ 

iidx = -99999; 
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else if (oidx != -99999) { /* bundle/bus -> bundle */ 

if (jidxl != oidx) 
goto next_j idxl ; 
iidx = oidx; 

} 

else if (jidx2 1= -99999) { /* bundle/bus -> bus */ 
if (jidxl != jidx2) 

goto next_jidxl; 
iidx = jidxl; 

) 

else /* bundle/bus -> pin */ 

iidx = jidxl; 

switch (t_type) { 
case CLEAR_T : 

if { timing- >timing_sense == POSITIVE_UNATE_E) 
f rom_j>p- >pin_tYpe j = l_axubPortTypeAsYncFall ; 
else 

f rom_j)p->pin_type |= l_axubPortTypeAsyncRise; 
break ; 
case PRESET_T : 

if ( timing- >timing_sense == POSITIVE_UNATE_E) 
f rom_pp->pin_type |= l_axubPortTYpeAsyncRise ; 
else 

f rom_j)p->pin_type |= l_axubPortTypeAsyncFall ; 
break; 

case THREE_STATE_DISABLE_T : 
case THREE_STATE_ENABLE__T : 

f romjpp->pin__type |= l_axubPortTypeTriDi sable; 

to_j)p->pin_type |= l_axubPortTypeTri ; 

break; 
case RISING_EDGE_T : 
case FALLING_EDGE_T : 

to_pp->pin_type |= l_axubPortTypeDataOut ; 

break; 
case SETUP_RISING_T : 
case SETUP_FALLING_T : 
case NON_SEQ_SETUP_RISING_T : 
case NON_SEQ_SETUP_FALLING__T : 

to_pp->pin_type j= l_axubPortTypeDataIn; 

f rom_j)p- >pin_type |= l_axubPortTypeClock; 

break; 

} 

if (t_type == SKEW_RISING_T | | t_type SKEW_FALLING_T) { 

fprintf (Aclf , "def ineCondTimingSkew \"%s\" \"%s\" \"%s\" \"%s\" 
\"%s\" \"",cell__name, 

nplp->name; (t_type==SKEW_RISING_T) ?"RISE" : "FALL", 
np2p->name, { t__type=-SKEW_RISING_T) ? "RISE" : "FALL") ; 
libc_oprjprint (Aclf , timing->when_start , curr_cell, iidx) ; 
fprintf (Aclf , "\" \"") ; 

libc_opr j>rint (Aclf , timing ->when_end; curr_cell, iidx) ; 
fprintf (Aclf , "\" ' (%G) \n", int_rise [1] ) ; 

} 

else { 

if ( timing- >when != NULL | | timing- >when_s tart i= NULL | [ timing- 
>when_end != NULL) { 



A-LIBC-115 



libc_gen.c 



fprintf (Aclf , "defineCondTimelntrinsic \"%s\" \"%s\" \ns\" %s 

%s \"", 

eel l_naTne , np Ip - >name , np2p - >name , 
libc_gen_unate2str ( timing - 
>timing_sense) , libc_gen_timetYpe2str (t_type) ) ; 

libc_opr_print (Aclf, timing- >when, curr_cell , iidx) / 
f print f (Aclf , "\" \"") ; 

libc_opr__print (Aclf , timing->when_start , curr_cell , iidx) ; 
f print f {Aclf, "\" \"") ; 

libc_opr__print (Aclf , timing- >when_end, curr_cell , iidx) / 
fprintf (Aclf, "\"\n") ; 

} 

else { 

fprintf (Aclf , "defineTimelntrinsic \"%s\" \"%s\" \"%s\" %s 

%s\n", 

cell__name , nplp- >name , np2p - >name , 
libc_gen__unate2str (timing- 
>timing_sense) , libc_gen_timetype2str (t_type} ) ; 
} 

fprintf (Aclf , " ' {%G %G %G %G %G %G) " , 

int_rise [0] , int_fall [0] , int_rise [1] , int_f all [1] , int_rise [2] , int_f all [2] ) ; 
switch (t__type) { 

case COMBINATIONAL__T : 
case RISING_EDGE_T : 
case FALL.I]SrG_EDGE_T : 
case PRESET_T : 
case CLEAR_T : 

case THREE_STATE_DISABLE_T : 
case THREE_STATE_ENABliE_T : 

fprintf (Aclf , "\n ' (%G %G %G %G %G %G)\n", 

slope_rise [0] , slope_f all [0] , slope_rise [1] , slope_fall [1] , slope_rise [2] ; slope_ 
all[2]) ; 

fprintf (Aclf , " ' (%G %G %G %G %G %G)\n", 

res_rise [0] , res_f all [0] , res_rise [1] , res_f all [1] , res_rise [2] , res_f all [2] ) ; 
break ; 
default : 

fprintf (Aclf , " 0 0\n") ; 
break; 

} 

} 

next__jidxl : 

if {from_j)p ]= NULL) 

jidxl += (f rom_pp->members NULL || fromjpp->is_bus) ? 1 : o 

} 

npl->next = next_npl; 

if (from__pp 1= NULL && f romjpp->is_bus) 
f ree_libc_name_list_rec (npl_head) ; 

} 

if (to_j)p->is_bus) 
j idx2++; 

} 

np2->next = next_np2 ; 
if {to_pp->is_bus) 

f ree__libc_name_list_rec (np2_head) ; 
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/* min_pulse__width */ 

static 

void libc_gen__min julse_width ( 

libc_pin_rec *current_pin) 
{ char *cell_name; 

libc_cell__rec *curr_cell; 

libc_naTne_list_rec *from_j>in; 

libc_name__list_rec *npl, *next_npl, *nplp, *npl_head; 

libc_min_pulse_width_rec *mpw; 

libc_k_f actor_rec *kfc; 

float *k_f actor, min_scaled, max_scaled; 

float constraint_high [3] , constraint_low [3] ; 

int iidx.jidx; 



mpw = current jiin->min_pulse_width; 
if (mpw === NULL) 
return; 

/* no bundle pin is allowed here */ 

assert (current_jpin->members =~ jNTJLL) ; 

curr_cell = current_jpin->_current_cell; 
cell_naine = curr_cell->cell_name; 
from_pin ~ current_pin- >pin_name ; 

kfc = (curr_cell->_scaling_f actors) ? cur r_cel 1 ->_scaling_f actors : 

tech_lib- >k_f actor ; 

k_factor = (float *) {kfc->k_tnin_pulse_width_high) ; 
libc_gen_scaled_value {k_f actor, ScTnin_scaled, &:max__scaled) ; 
constraint_high [0] = mpw- ?>constraint_high * min_scaled; 
constraint_high [1] = mpw->constraint_high; 
constraint__high[2] = mpw- > cons traint_high * max_scaled; 

k_f actor = (float *) (kf c- ?>k_min_pulse_width_low) ; 
libc_gen_scaled_value (k__f actor, Scmin_scaled, &max_scaled) ; 
constraint_low[0] = mpw- >constraint_low * min_scaled; 
constraint_low[l] mpw- >constraint_low; 
constraint_low [2] = mpw->constraint_low * max_scaled; 

for (npl=f rom_pin;npl ! =NULL;npl=npl->next) { 
next_npl = npl->next; 
npl->next = NULL; 

npl_head = (current_pin->is_bus) ? libc__cell_bus_name (current_pin) : npl 
iidx ~ (currentjpin->is_bus) ? 0 : -99999; 

for (nplp=npl_head;nplp I =NULL;nplp=nplp->next) { 

/* assign iidx as bundle idx if np->name is belong to bundle- 

>members */ 

jidx = libc_cell__get_bundle_idx(curr_cell,nplp->name) ; 
iidx = (jidx 1= -99999)? jidx : iidx; 



if (mpw->when i= NULL) { 
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fprintf (Aclf , "def ineCondMinClkPulseWidth \"%s\" \"%s\" \"HIGH\" 
\"",cell_name,nplp->name) ; 

libc_opr_print (Aclf , mpw->when, curr_cell ; iidx) ; 
fprintf {Aclf , "\" ' (%G %G 
%G) \n" , constraint_high [0] ; constraint_high [1] , corLstraint_high [2] ) ; 

fprintf (Aclf , "def ineCondMinClkPulseWidth \"%s\" \"%s\" \"LOW\" 
\"",cell_name,nplp->name) ; 

libc_opr__print (Ac If , mpw- >when, curr_cell , iidx) ; 
fprintf (Aclf , "\" ' {%G %G 
%G) \n" , constraint_low [0] , constraint_lov; [1] , constraint_low [2] ) ; 

} 

else { 

fprintf (Aclf , "def ineMinClkPulseWidth \"%s\" \"%s\" \"HIGH\" ' (%G %G 
%G) \n" , cell_name , nplp->name, 

constraint_high [0] , const raint_high [1] , constraint_high [2] ) ; 
fprintf (Aclf , "def ineMinClkPulseWidth \"%s\" \"%s\" \"LOW\" M%G %G 
%G) \n" , cell_name,nplp->name, 

constraint_low [0] , constraint_low [1] ; constraint_low [2] ) ; 

} 

if (current_pin->is_bus) 
iidx++ ; 

} 

npl->next = next_npl; 
if (current__pin->is_bus) 

f ree_libc_naTne_list_rec (npl_head) ; 

} 

} 

minimum_j>eriod */ 

static 

void libc_gen_min_period ( 

libc_pin_rec *current_pin) 
{ char *cell_name; 

libc_cell_rec *curr_cell; 

libc_naTne_list__rec *from_pin; 

libc__name__list_rec *npl, *next_npl, *nplp, *npl_head; 

libc_minimum_jperiod_rec *Tnp; 

libc__k_f actor_rec *kfc; 

float *k_f actor ,min_scaled, max_scaled; 

float constraint [3] ; 

int iidx,jidx; 

mp = current_pin->minimum_period; 
if (mp === NULL) 
return ; 



/* no bundle pin is allowed here */ 

assert (cur rent_p in- >meTnbers == NULL) / 



curr_cell = current_j)in- >_current_cell ; 
cell__name = curr_cell->cell_name/ 
from_j>in = currentjpin- >pin_name; 

kfc = (curr_cell->_scaling_factors) ? curr_cell->_scaling_f actors : 

tech_lib->k_f actor; 
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k_factor = (float *) (kf c~>k_minjperiod) ; 
libc_gen_scaled_value (k_factor, &:min_scaled, &:max_scaled) ; 
constraint [0] = mp- >constraint* min_scaled; 
constraint [1] = mp->constraint ; 
constraint [2] = mp-> constraint* max_scaled; 

for (npl=f romjpin;npl ! -NULL;npl-npl->next) { 
next_npl = npl->next; 
npl->next = NULL; 

npl_head = (current_j)in->is_bus) ? libc_cell_bus_naTne (current_pin) : npl; 
iidx = (current_pin->is_bus) ? 0 : -99999; 

for {nplp=npl_head;nplp I =NULL;nplp=nplp->next) { 

/* assign iidx as bundle idx if np->name is belong to bundle- 

>meTnbers */ 

jidx = libc_cell_get_bundle_idx (curr_cell , nplp->name) ; 
iidx = (jidx != -99999)? jidx : iidx; 

if {Tnp->when 1= NULL) { 

fprintf (Aclf , "def ineCondMinClkPeriod \"%s\" \"%s\" 
\" " , cell_name, nplp->name) ; 

libc_opr_j)rint (Aclf , mp- >when, curr_cell , iidx) ; 

f print f (Aclf, "\" ' (%G %G 
%G) \n" , constraint [0] , constraint [1] , constraint [2] ) ; 

} 

else { 

fprintf (Aclf , "def ineMinClkPeriod \"%s\" \"%s\" M%G %G 
%G) \n" J cell_name,nplp->name, 

constraint [0] ; constraint [1] , constraint [2] ) ; 

} 

if (current_pin->is_bus) 
iidx++; 

} 

npl->next = next__npl; 
if (current _j)in- >is_bus) 

f ree_libc_naTne_list_rec (npl_head) ; 



static 

void libc_gen_cell_tiTning ( 
libc_cell_rec *cell) 
( libcj>in_rec *pp; 
libc_timing_rec *tp; 

for (pp=cell->pins ;pp i =NULL ; pp=pp- >next) { 
if (pp->meTnbers) 
continue; 

for (tp=pp->timing; tp ! =NULL; tp=tp->next) { 
if (tech_lib->delay_model == GENERIC_CMOS) { 
libc_gen_linear_timing (tp) ; 

} 

else if (tech_lib->delay_model == TABLE_LOOKUP) { 
libc_gen_TLU_timing (tp) ; 



A-LIBC-119 



libc_gen.c 



libc_gen_minjpulse_width (pp) ; 
libc_gen_min_j)eriod (pp) ; 

} 

} 

/** ::::::::::::::::::::::::::======================== 

#define l_axucMaxPort Types 19 

static char * libc^PortTypeTable [l_axuc]yiaxPortTypes + l] = { 
"Input", 
"Output" , 
"Inout", 
"Tristate" , 
"Power" , 
"Ground" , 
"Clock", 
"Tieup" , 
"Tiedown" , 
"Async_rising" , 
"Async_f ailing", 
"Datain", 
"DataOut " , 
"Address In" , 
"Enable" , 
"Scanin" , 
"ScanOut", 
"ScanClock", 
"TristateDisable", 
0 }; 

/. 

/* return 1 : is_filpflop, 0 : is not flip_flop */ 
static 

int libc_genjpin_j)ort_type ( 

libc_pin_rec *pin, 

libc_name_list___rec *np_he ad) 
{ libc_name_list_rec *np; 
int i; 

/* for pin only, no bus and bundle */ 

for (np=np_head;npl=NULL;np=np->next) { 

fprintf {Aclf , " ( \"%s\">',np->naTne) ; 

for {i=0;i< l_axucMaxPo r t Type s ; i + + ) { 

if (pin->pin_type & {l<<i) ) 

^ fprintf (Aclf , " \"%s\"'Mibc_PortTypeTable[i] ) ; 
fprintf (Aclf, " ) \n") ; 

} 

if (pin->pin_type & l_axubPortTypeClock) 

return (1) ; 
return (0) ; 
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/* must after LUT (timing) information */ 

static 

void libc_gen_pin_inf o ( 

libc_cell_rec *cell) 
{ libc_pin_rec *pp; 

libc_k_f actor_rec *kfc; 

float min_scaled, max_scaled, *k_f actor; 

f loat min_cap , cap , max_cap ; 

libc_name_list_rec *np, *np_head; 

char *cn; /* cell_name */ 

int isFlop = 0,isLatch = 0,isRam = 0,isRom = 0; 

cn = cell->cell__name; 
if (cell->ff_latch != NULL) { 
if (cell->ff_latch->is_f f ) 

isFlop = 1; 
else if ( 1 (cell->f f_latch~>is_state) ) 
isLatch = 1; 

} 

if (cell->memory 1= NULL) { 
if (cell->memory- >is_ram) 

isRam = 1; 
else 

isRom = 1/ 

} 

/* 1. dbSetCellPortTypes */ 

fprintf (Aclf , "dbSetCellPortTypes (clfGetCLFLibName) \"%s\" ' (\n" 
for (pp=cell->pins ;pp 1 =NULL;pp=pp">next) { 
if (pp->members) 
continue; 

np_head = (pp->is_bus) ? libc_cell_bus_name (pp) : pp->pin_name; 
isFlop 1= libc_gen_j>in_port_type {pp,np_head) ; 
if (pp->is__bus) 

f ree_libc_name_list_rec (np_head) ; 

} 

fprintf (Aclf , ") #f\n"); 

/* 2. def inePortCapacitance */ 

kfc = (cell- >_scaling_f actors) ? cell->_scaling_f actors : tech_lib 
>k_f actor ; 

k_f actor = (float *) (kf c->k_pin__cap) ; 

libc_gen_scaled_value (k_f actor, &:min_scaled, £cmax__scaled) ; 

for (pp=cel 1 - >pins ; pp ] =NULL ; pp=pp - >next ) { 
if (pp->members) 
continue; 



cap = pp->capacitance * cap_scale; 

min_cap = cap * min_scaled * cap_scale; 
max_cap = cap * max_scaled * cap_scale; 
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np_head = (pp->is_bus) ? libc_cell_bus_name (pp) : pp->pin__name ; 
for (np=np_head;np ! =NULIi;n.p=np->next) { 
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fprintf (Aclf , "def inePortCapacitance 
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} 

if (pp->is_bus) 

f ree_libc_name_list_rec {np_head) ; 

} 



/★ 3. dbSetLModelSubType */ 

if (isFlop I I isLatch | | isRam | | isRom) { 
char * lTn_type ; 

if (isFlop) 

l'^_type = "flipflop"; 
else if (isLatch) 

lm_type = "latch"; 
else if (isRam) 

irn_type - "ram"; 
else if (isRom) 

l"^_type = "rom"; 

fprintf (Aclf, "setq tmpCellld (dbOpenCell \"%s.%s\" \ "w\ " ) \n" , cn, "TIM" ) ; 
fprintf (Aclf, "dbSetLModelSubType tmpCellld \ "%s\ "\n" , lm__type) ; 
fprintf (Aclf, " ; dbCloseCell unnecessary; CLF load has already opened cell 
to load capacitance & will close \n") ; 

} 



/* = = = ^ = = ^^ = = = ^ = ^==== = = = = ^^^=. = . = =3 = = = = =. = = = = ==^^ = = ^=,^=,^ = ^^ 

static 

void libc_gen_wire_load__model ( 

libc_lib_rec *tlib) 
{ libc_wire_load_rec *wlp; 
libc_f anout__length_rec *pp; 

libc_wire_load__selection_rec *wlsp; 
libc_wire_l o ad_f r om__a re a_r e c * ap ; 
char *mode; 

#if 1 

return; /* skip in this version (08/24/98) */ 

#else 

/* def ineWireLoad */ 
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for (wlp=tlib->wire_load; wlp ! =NULL;wlp=wlp->next) { 

fprintf (Self , "defineWireLoad \"%s\" ' (%G" ,vjlp->wl_name , wlp- > slope ) ; 
for (pp=wlp- >f anout__length;pp ! =NULL;pp=pp->next) 

fprintf (Self , "\n (%d %G %G %G %G) " , pp- >f anout , pp- >length, 
pp->capacitance * cap_scale,pp- >resistance * resist_scale,pp->area) ; 
fprintf (Self, ") \n") ; 

} 

/* def ineWireLoadSel */ 

for (wlsp=tlib->wire_load_selection; wisp ! =NULL;wlsp=wlsp->next ) { 
if {wlsp->wls_name != NULL) 

fprintf (Self , "def ineWireLoadSel \"%s\" ' { " , wisp- >wls_name) ; 
else 

fprintf (Self , "def ineWireLoadSel \ "def ault_wire_load_sel\" ' (") ; 
for (ap=:wlsp->area_table;ap ! =NULL; ap=ap->next) 

fprintf (Self , "\n (%G %G \ "%s\ " ) " , ap->min_area, ap->max_area, ap- 
>_load_model->wl_name) ; 
fprintf (Self, ") \n") ; 

} 

/* def ineDefaultWireLoad */ 

if (tlib->def aiilt_wire_load != MULL) 

fprintf (Self, "def ineDefaultWireLoad \"%s\"\n" , tlib->def ault_wire_load) 

if (tlib->def ault_wire_load_selection !^ NULL) 

fprintf (Self, "def ineDef aultWireLoadSel \ "%s\"\n" , tlib- 
>def ault_wire_load_selection) ; 
else { 

if (tlib->wire_load_selection NULL) { 

if {tlib->wire_load_selection->wls_name == NULL) 

fprintf (Self, "def ineDef aultWireLoadSel \ "def ault_wire_load_sel\ "\n 
else 

fprintf (Self , "def ineDef aultWireLoadSel \ "%s\ "\n" , tlib- 
>wire_load_se lection- >vjls_naTne) ; 

} 

] 

/* def ineDef aultWireLoadMode */ 

switch ( tlib- >def ault_wire_load_mode) { 

case TOP_WL : mode = "top"; break; 

case SEGMENTED_WL : mode = "segmented"; break; 

case ENCLOSED_WL : mode = "enclosed"; break; 

} 

fprintf (Self , "def ineDef aultWireLoadMode \ "%s\ "\n\n" ,mode) ; 
#endif 

} 

*/ 

static 

void libc_gen_cell_lclf ( 
libc_cell_rec *cp) 
{ char *cn; 

libc_pin_rec *pp, *bundlej; 

libc_name_list_rec *np, *np_head; 

int is_f f =0, is_latch=0; 

libe_f f_lateh_rec *ffp; 
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int i,iidx = -99999, jidx; 

cn = cp- >cell_name ; 

if {libc_version >= 330) { 

if (cp->dont_touch | | cp->pad__cell) 

fprintf (Self, "def ineCellDontToucii \"%s\"\n" ,cn) ; /* 
dont touch */ 
if {cp->dont_use | | cp->pad_cell) 

fprintf {Self , "defineCellDontUse \"%s\"\n" , cn) ; /* 

dont use */ 

if {cp->cell__f ootprint 1= MULL) 

fprintf (Self ; "defineCellFootPrint \"%s\" \ "%s\ " \n" , cn, cp- 
>cell_f ootprint) ; 

} 

/* cell function */ 

if (libc__version >= 330) { 

for {ffp=:cp->ff_latch;ffp!=NULL;ffp=:ffp->next) { 
if (ffp->is_ff) 

is__ff = 1; 
else if { ! f fp->is__state) 

is_latch = 1; 
else { /* f fp->is__state */ 

if {f fp->clock_on != NULL | | f f p- >next_state 1= NULL) 

is_ff = 1; 
else 

is_latch = 1; 

} 

/★ 2. ff or latch function */ 

for {i=0, iidx=-l;i<f fp->width; i++) { 
if (ffp->width 1) { 
iidx = -99999; 

fprintf (Self , "%s \"%s\" \»%s\" \"%s\" \"% 

(is_f f ) ?"def ineFlipFlopFunction" : "def ineLatchFunction" ,cn, f fp- 
>Q__name, f fp->QN_name) ; 

} 

else { 

iidx 1; 

fprintf (Self , "%s \"%s\" \"%s[%d]\" \"%s[%d]\" \"", 

(is_f f ) ? "def ineFlipFlopFunction" : "def ineLatchFunction" , cn, ffp- 
>Q_name, iidx, f f p - >QN__name , iidx) ; 
} 

if {is_ff) { 

libc_oprjprint (Self, f fp->clock_on, cp, iidx) ; 
fprintf (Self , "\" \""); 

libc_opr__print (Self, f f p- >next_state, ep, iidx) ; 

} 

else { 

libe_opr_j)rint (Self, f fp->enable, cp, iidx) ; 
fprintf (Self , "\" \""); 

libe_oprjprint (Self , f fp- >data_in, ep, iidx) ; 

} 

fprintf (Self, "\" \"") ; 

libc_opr_print (Self, f fp->clear, cp, iidx) ; 
fprintf (Self, "\" \"") ; 

libc_opr__print (Self, f fp->preset, cp, iidx) ; 
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fprintf (Self, "\" \"%c\" \"%c\" \ " " , f fp->clear_preset_varl , f f p- 
>clear__preset__var2 ) ; 

libc_opr_print (Self , f fp->on__also, cp, iidx) ; 
fprintf (Self, "\"\n") ; 

} 

} 

} 

if (Sclfl !^ NULL) /* lib_version == 320 

fprintf (Self 1, "setq cellld (dbOpenCell \"%s.TIM\" \ "w\ " ) \n" , cn) ; 

for (pp=cp - >pins ; pp ! =NULL ; pp=pp - >next ) { 
if (pp->members) 
continue ; 

np_head = (pp- >is_bus) ? libc_cell_bus_name (pp) : pp->pin_name; 
iidx = (pp->is_bus) ? 0 : -99999; 
for (np=np_head ; np ! =NULL ; np=np - >next ) { 
if (libc_version >= 330) { 

if (pp->f anout_load 1==0) 

max_fanout */ 

fprintf (Self , "defineCellFanoutLoad \"%s\" \"%s\" %G\n",cnnp- 
>name,pp->fanout_load) ; 

if (pp->direction == OUTPUT_E || pp->direction == INOUT_E) { 
if (pp->max__f anout 1=0) /* 
Tnax_fanout */ 

fprintf (Self , "defineCellMaxFanout \"%s\" \"%s\" %G\n",cn;np- 
>name, pp->max_f anout ) ; 

if (pp->max_transition !=0) /* 
max_transition */ 

fprintf (Self , "defineCellMaxTransition \"%s\" \"%s\" %G\n", cn np- 
>name;pp->max_transition) ; 

if (pp->max_capacitance != 0) /★ 
max_eapacitance */ 

fprintf (Self , "defineCellMaxCapacitanee \"%s\" \"%s\" %G\n%cn,np- 
>name;pp->max_capaeitance) ; 

} 

} 

else if (Sclfl != NULL) { /* for version 320 */ 

/* if (pp->fanout_load 1= 0) 

* fprintf (Sclfl, "dbSetFanout \ns\" %G\n" ,np->name,pp- 
>f anout_load) ; */ 

if (pp->direction == 0UTPUT_E | | pp->direction == INOUT E) { 
if (pp->max_f anout 1= 0) ~ 
/* max_f anout */ 

fprintf (Sclfl, "dbSetMaxFanout cellld \"%s\" %G\n" , np->name pp- 
>max_f anout) ; 

if (pp->max_transition i= 0) _ 
max_transition */ 

fprintf (Sclfl, "dbSetMaxTransition eellld \"%s\" %G\n" , np->name pp- 
>max_transition) ; 

if (pp->max_eapacitance != 0) /* _ 

max_eapacitanee */ 

fprintf (Sclfl, "dbSetMaxCapacitance cellld \ns\" %G\n" , np->name pp 
>max_capacitance) ; 

} 

} 
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/* pin function */ 

if (pp->f unction == IsTULL) 
continue; 

/* assign iidx as bundle idx if np->name is belong to bundle- 

>members */ 

jidx = libc_cell__get_bundle_idx (cp; np->name) ; 
iidx = (jidx 1= -99999)? jidx ; iidx; 
if (pp->three_state >= NULL) { 

/* 1. three state */ 

if {libc_version >= 330) { 

fprintf (Self , "defineTristateFunction \"%s\" \"%s\" \ " " , cn, np- >naTne 
libc__opr _print (Self ,pp->three_state, cp, iidx) ; 

fprintf (Self , "\" \""); 

libc_opr_print (Self ,pp->f unction, cp, iidx) ; 

fprintf (Self, "\"\n") ; 

} 
} 

else if (libc_version < 330 ScSc cp->f f__latch 1= NULL) 
/* do nothing */ ; 
else { 

/* 2. ff or latch function */ 

/★ 3^ combinational function */ 

fprintf (Self, "def ineBooleanFunct ion \"%s\" \"%s\" \ " " , cn / np - >naTne) 
libc_opr_j)rint (Self ,pp->function, cp, iidx) ; 
fprintf (Self , "\"\n") ; 

} 

if (pp->is_bus) 
iidx++; 

} 

if (pp->is_bus) 

f ree_libc_naTne_list_rec {np_head) ; 

} 

fprintf (Self, "\n") ; 

if (Selfl ]= NULL) /* lib_version == 320 */ 

fprintf (Self 1, "dbCloseCell cellld\n") ; 

} 



/* power elf */ 



static char *power_table_name [3] = 

{ " \ "SwitchingPowerTable\ " " , " \ " InternalPowerTable\ " " , 
"\ "LeakagePowerTable\ " " } ; 

/* 



static 

void libc_gen_power_table_name ( 
char *eell_name, 
char *pin_name, 
int tidx, 
char rise_fall) /* r,f */ 

{ 

if {rise_fall == »r' || rise_fall == 'f) 

fprintf (Mclf , "\"%s:%s: :%d%c\" eell_name,pin__name , tidx, rise_f all) ; 
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else 

fprintf (Mclf , "\ "%s : %s : : %d\ " " , cel l__name , pin_name , t idx) ; 



static 

void libc_gen_mclf_create_one_table ( 
char *cell_name, 
char *pin_name, 
int tidx, 

int tbl_idx, /* 0: output; 1: input */ 

char rise_fall, /* r,f,t */ 

libc_table_val_rec * table) 
{ char *idx_typel, *idx__type2, *idx_type3/ 
variable_E vl,v2,v3; 
int sizel, size2, sizes ; 
float k_f actor = 1.0; 

fprintf (Mclf , " (clf CreateTable ") ; 

libc_gen_power_table_name (cell_name,pin_name, tidx, rise_f all) ; 
fprintf (Mclf , " %s\n ' ( %power_table_name [tbl__idx] ) ; 

if (table == NULL) { no value (table) */ 

fprintf (Mclf, ") • (0)\n)\n") ; 

} 

else if (table->_tbl == NULL) { /* scalar table */ 

^ fprintf (Mclf,") ' (%G)\n)\n", table- >scalar_val * watt_scale) ; 

else { 

vl = table- >_tbl->variable_l ; 

v2 = table ->_tbl->variable_2; 

v3 = table ->_tbl->variable_3; 

idx_typel = libc_gen_varE2str (vl) 

idx_type2 = libc_gen_varE2str (v2 ) 

idx_type3 = libc_gen_varE2str (v3 ) 

sizel = sizeof_float_buffer (table->indexl) ; 
fprintf (Mclf, " (%s " , idx_typel) ; 

libc__gen_lD__array(Mclf, table- >indexl,libc_gen_varE2scale{vl) ) ; 
if (idx_type2 1= NULL) { 

size2 = sizeof_float__buffer (table->index2) ; 
fprintf (Mclf, ")\n (%s •Mdx_type2) ; 

libc_gen_lD_array{Mclf, table- >index2, libc_gen_varE2scale{v2) ) ; 
if (idx_type3 != NULL) { 

size3 = sizeof_float_buffer (table- >index3) ; 
fprintf (Mclf, ") \n (%s Mdx_type3) ; 

libc_gen_lD_array(Mclf, table ->index3,libc_gen__varE2 scale (v3) ) • 
fprintf (Mclf , ") ) ") ; 

libc_gen_timing_values (Mclf , sizel , size2 , size3 , table- >values , k factor 
* watt_scale) ; ~ 

} 

else { 

fprintf (Mclf , ") ) ") ; 

libc_gen_timing_values (Mclf , sizel , sizea , 0 , table- >values , k factor * 
watt_scale) ; " 

} 
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} 

else { 

fprintf (Mclf , "))"); 
libc_gen_tiining_values (Mclf , sizel, 0,0, table - >values, ]<:_f actor 
watt_scale) ; 
} 

fprintf (Mclf , ") \n") ; 

} 

} 

/* */ 

static 

void libc_gen_def ine j>ower ( 
libc__cell_rec *cell, 
char *pn, /* pin_name */ 

int is_in_pin, 
libc_internal_power *ipp, 
int tidx, 
int iidx, 

char rise_fall) /* r,f,t */ 
{ char *cn; 

libc_name_list__rec *np; 
libc_pin_rec *pp; 

cn ~ cell->cell_name; 

fprintf (Mclf, "%s \"%s\" \"", (is_in_pin)? "def inelnternalPower" 
"def ineSwitchingPower" , cn) ; 
if (is_in_j)in) { 
/* input */ 

fprintf (Mclf , " %s%c " , pn, rise_f all ) / 
if (ipp->when) { 

/* CPt*(SO+RO) */ 

fprintf (Mclf , "*("); 

libc_opr_power_whenj)rint {Mclf , ipp->when, cell, iidx) ; 
fprintf (Mclf , ") ") ; 

} 

fprintf (Mclf, "\" \""); 

/* output */ 

if (ipp->related_j)in) ( 

for { np=ipp - >related_pin ; np ; np=np - >next ) { 
libc_opr__id_print (Mclf , np- >name, cell , iidx) ; 
fprintf {Mclf; "t%s", (np->next ! =NULL) ?"+":" ") ; 

} 
} 

else 

fprintf (Mclf, "-") ; 

} 

else { 

input */ 

if (ipp->related_pin == NULL SlSc ipp->'when =- NULL) 

fprintf (Mclf, "-") ; 
else { 

if (ipp->related_pin) { 
fprintf (Mclf, " (") ; 

for (np=:ipp->related__pin;np;np=np->next) { 
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libc_opr_id_print (Mclf , np->name, cell , iidx) ; 
f print f (Mclf , "t%s" , (np->next I =MULL) ? " + " -. ) ; 

} 

fprintf (Mclf ; ") %s", (ipp->when) ?"*" : "") ; 

} 

if (ipp->when) { 
fprintf {Mclf , " (") ; 

libc_opr_power_when_j)rint (Mclf , ipp->when, cell , iidx) ; 
fprintf {Mclf , ") ") ; 

} 

) 

fprintf (Mclf , "\" \"") ; 

output */ 

fprintf (Mclf , "%s%c" ,pn, rise_fall) ; 
if ( ipp->equal_or_opposite_output ) ( 

for (np=ipp->equal_or_opposite_output ;np;np=np->next) { 
libc_opr_id_j)rint (Mclf , np->name, cell, iidx) ; 
fprintf (Mclf, "%c%s" , rise_f all , (np->next i =NULL) ?"*" : ; 

} 
} 

} 

fprintf (Mclf , "\" \"TLU\" "); 

libc_genj)ower_table_name (cn,pn, tidx, rise_f all) ; 
fprintf (Mclf, "\n") ; 

} 

/* */ 

/* 

static 

void libc_gen_switching_name ( 

libc_cell_rec *cell, 

libc_name_list_rec *np_head) 
{ libc_pin__rec *pin; 

libc_name_list_rec *npl, *np2, *np2__head; 

for (npl=np_head;npl;npl=npl->next) { 

pin = libc_cell_find_j>in_by_name (cell , npl->name , -99999) ; 
if (pin == NULL) 

fprintf (Mclf, "%st%s" , npl->nan\e, (npl->next) ?" + " : "") ; 
else { 

if {pin->members) { 

for (np2=pin->inemfoers;np2 ; np2=np2->next) 

fprintf (Mclf, " %st%s " , np2 - >name , (np2->next | |npl->next) ?"+":"") 

} 

else if (pin->is_bus) { 

np2_head = libc_cell_bus_name (pin) ; 
for {np2=np2_head;np2 ; np2=np2 - >next ) 

fprintf (Mclf, "%st%s" ,np2->name, (np2->next | | npl->next) ?"+" : " ") 
f ree_libc_name_list_rec (np2_head} ; 

} 

else 

fprintf (Mclf, "%st%s " , npl- >name , (npl->next) ?"+" : "") / 

} 

} 

} 
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/* 

static 

void libc_gen_def ine_power_97 ( 

libc_cell_rec *cell, 

int is_in_pin, 

libc_internal_power *ipP/ 

int tidx) 
{ char *cn; 

libc_name_list_rec *np; 

cn = cell->cell_name; 

fprintf (Mclf , "%s \"%s\" \ " " , {is_in_j)in) ? "def inelnternalPower " 
"def ineSwitchingPower" , cn) ; 
if (is_in_j)in) { 

assert (ipp->outputs == IsnJLL) ; 

libc_gen_switching_narae (cell, ipp->inputs) ; 

fprintf (Mclf , "\" \"-"); 

} 

else { 

if (ipp->outputs == NULL) 

fprintf (Mclf , "-\" \"-"); 
else { 

if (ipp->inputs 1= XJULL) 

libc_gen___switching_name (cell, ipp-> inputs) ; 
else 

fprintf (Mclf , "-") ; 
fprintf (Mclf , "\" \""); 

libc__gen_switching__name (cell , ipp- >outputs) ; 

} 

} 

fprintf (Mclf, "\" \"TLU\" "); 
libc_genj)ower_table_name (cn, "X" , tidx, ' t ' ) ; 
fprintf (Mclf, "\n") ; 

} 

/* 

static 

void libc_gen_cell__mclf ( 
libc_cell_rec *cp) 
{ char *cn; 

libc jpin_rec *pp , *bundle_p ; 

libc_name_list_rec *np, *np_head; 

int iidx = -99999 , j idx, tidx=0 ; 

libc_internal_power *ipp; 

libc__leakage_power *lpp; 

int is__in_pin; 

cn = cp->cell__name; 

/* 1^ cell leakage power */ 

for (lpp=cp- >leakage_j>ower ; Ipp; lpp=lpp- >next) { 

fprintf (Mclf , "def ineLeakagePower \"%s\" \""); 

libc_opr_power_whenjprint (Mclf, lpp~>when, cp, -99999) ; 

fprintf (Mclf , "\" \"-\" \"Constant\" %G\n",cn, 
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lpp->value*joule scale) ; 

} 

if (cp->cell_leakage_power 1= 0.0) 

f print f (Mclf , "defineLeakagePower \"%s\" \"-\" \"-\" \"Constant\" 
%G\n",cn, 

cp->cell_leakage_power* joule_scale) ; 

/* 2. old method internal power (97) */ 

for (ipp=cp- >internal_power_c; ipp ! =NULL; ipp=ipp->next) { 

if (ipp->inputs NULL && ipp->outputs == NULL) { 

libc_gen_mclf_create_one_table{cn, "X",tidx,0, • t Mpp->power) ; 

^ libc_gen_def ine_power__97 (cp, 0, ipp , tidx-f-+) ; 

else { 

if (ipp->outputs 1= NULL) { 

libc_gen_mclf_create_one_table(cn, "X",tidx,0, 't' ,ipp->power) ; 
libc_gen_def ine__power_97 (cp, 0, ipp, tidx++) ; 

else if (ipp->inputs 1= NULL) { 

libc_gen__mclf_create_one_table (en, "X" , tidx, 1, • t \ ipp->power) ; 
libc_gen_def ine_power_97 {cp, 1 , ipp, tidx++) ; 

} 

} 

/* 3. pin (internal/switching) power */ 

for (pp=cp - >pins ; pp ! =NULL ; pp=pp - >next ) { 
if {pp->members} 
continue; 

is__in_pin = {pp->direction INPUT E || pp->direction -= INTERNAL E) 1 
: 0; - ' 

for (ipp=pp->internaljpower;ipp]=NULL;ipp=ipp->next, tidx++) { 

/* 3.1 create pin power table */ 

if (ipp->rise_jpower 1= NULL) 

li^c_g^^_^clf_create_one_table (on, pp->pin_name- 
>name , tidx, is_in_pin; 'r • , ipp->rise_power) ; 
if (ipp->fall_power != NULL) 

libc_gen_Tnclf_create_one_table (cn,pp->pin_naTne- 
>name, tidx, is_in_pin, ' f , ipp->f all_j5ower) ; 
if (ipp->power 1= NULL) 

lii>c:__gen_mclf_create_one_table (cn, pp->pin_name- 
>naTne, tidx, is_in_pin, 't ' ,ipp->power) / 

np_head = (pp->is__bus) ? libc_cell_bus_name (pp) : pp->pin_nanie; 
iidx = (pp->is_bus) ? 0 : -99999; 
for (np=np_head;np I =NULL;np=np->next) { 

jidx = libc_cell_get_bundle_idx(cp,np->name) ; 

iidx = (jidx -99999)? jidx : iidx; 

/* 3.2 generate define power */ 

if (ipp->rise_power !- NULL) 

. ^ lil3c_gen_define_power(cp,np->name,is_in_pin, ipp, tidx, iidx, 'r'); 
if (ipp- >f all_power != NULL) 

libc_gen_def ine_power (cp, np- >name, is_in_jpin, ipp, tidx, iidx, ' f ' ) ; 
if (ipp->power 1= NULL) 

libc_gen_define_power(cp,np->name,is_in_j)in, ipp, tidx, iidx, 't') ; 
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if {pp->is_bus) 
iidx++; 

} 

if {pp->is_bus) 

f ree_libc_name_list_rec (np_head) ; 

} 

} 

} 

/* = = = = = . = = = = = = = = = = = = = = = = . = = = . = = = = = = = = = = = = = = = = = = = */ 

public 

void libc__gen_clf_main ( 
FILE *xxx_out J) , 
FILE *yyy_out_p, 

FILE *yyy_out_con, 
FILE *zzz_out_j), 
libc__lib_rec *tlib) 
{ libc__cell_rec *cp; 

if (tlib->delay_model 1= GENERIC_CMOS tlib->delay_model 1= TABLE_LOOKUP) 
return; 

Aclf = xxx__outji; 
Self = yyy_out_p; 

Sclfl = yyy__out_con ; /* libc_version == 32 0 */ 
Mclf = zzz_out_p; 

fprintf {Aclf , " ; CLE translated from synopsys library format file\n")/ 

fprintf (Aclf , " ; ==^= Library : %s ====\n" , tlib->lib_name) ; 

fprintf (Aclf, " ; Temperature 
(%G: %G: %G) \n" , libc_t_min, libc_t_nom, libc_t_max) / 

fprintf (Aclf , " ; Voltage 
(%G:%G:%G) \n", libc_v_min, libc_v_nom, libc_v_max) ; 

fprintf (Aclf ; Process Factor 
(%G: %G: %G) \n" , libc__p__min, libc_p_nom, libc_p_max) ; 

fprintf (Aclf ; Capacitance multiplier %G \n" , cap_scale) ; 

fprintf (Aclf ; Resistance multiplier %G \n" , resist_scale) ; 

fprintf (Aclf ; Time multiplier %G \n" , time__scale) ; 

libc_gen_k_f actor (tlib->k_f actor) ; 

if (Self i= NULL) { 
if (Self != Aclf) 

fprintf (Self ; ==== Library : %s =====\n" , tlib->lib_name) ; 
libc__gen_wire_load_model (tlib) ; 

} 

if (Sclfl != NULL) { /* libc_version == 320 */ 

fprintf (Sclfl, "geOpenLib\n") ; 

fprintf (Self 1, "setFormField \"Open Library\" \"Library Name\" 
\"%s\"\n'\ tlib->lib_name) ; 

fprintf (Self 1, "formOK \"Open Library\ " \n\n" ) ; 

} 

for (cp=tlib->cells;cp!=IIULL;cp=cp->next) { 



A-LIBC-132 



libc^gen.c 



if (Aclf != NULL) ( 

libc_gen_cell_timing (cp) ; 
libc_genj)in_info (cp) ; 

} 

if (Self != NULL) 

libc__gen_cell_lclf (cp) ; 
if (Mclf != IJULL) 

libc_gen_cell__mclf (cp) ; 

} 

if (Sclfl != NULL) /* libc_version == 320 */ 

fprintf (Sclfl, "\ngeCloseLib\n") ; 

} 
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#include " libc_def . h " 

#include "libc_yacc . h" /* from libc.y */ 

#include <stdlib.h> 



#define YY_SKIP_YYWRAP 1 

#undef yywrap 

#define yywrap () i 

#define echo /* ECHO */ 

#define RN{s) return (s) 

void lex_error (char *) ; 

static int libc_lineno = 1; 

extern char *f ile^nanie; 

static int pss[100]; /* prev_state_stack */ 

static int psc =0; /* prev_state_count */ 

int scaling_attr; /* 0 :k_j)rocess, l:k_temp, 2:k_volt */ 

#define NEXT_STATE pss [psc++] =YY_START; BEGIN 

#define PREV_STATE BEGIN pss[--psc] 

FILE *yyin/ 
%} 

PS LIB CU DM LU PU RU VU TU IPO 
BOOL MMP ANY_S WLM WLF XT SA DIR DRT NST 
PFT PSC BUS PIN CBO CM CIP PIP CELL IV LTT 
OV OC PC PLT TD SC SF TR TYPE WL 
WLS WLT PP FF CL MR MW TI MPW MP 
TIT TIS VS CTC RT PT CST CRT SIG__T CENUM 
OST SDF_E NAME QSTR LUT ROP REV CLP 
SKIP 



%S 
%s 
%s 
%S 
%s 
%S 
%s 
%x 



ws [ \b\t\v\f\r]+ 

integer [0-9]+ 

^^^^ C[0-9] + {[.] [0-9]*)?) ([Ee] [ + -]?[0-9]+)?| {[0-9]*[.] [0-9]+) { [Ee] [4 
] ? [0-9] +) ? 

string [a-zA-Z_$] [0-9a-zA-Z__$ . /\ - ] * ( [\ [] [0-9] + ( [:] [0-9] + ) ? [\] ] ) ? 

estring [0-9a-zA-Z_$ . /\?\-\+\*\%] + ( [\ [] [0-9] + ([:] [0-9] +) ? [\] ] ) ? 

nstring " \\\ " " { [0-9] + [a-zA-Z_] [0-9a-zA-Z l*)|([a-zA-Z ] [0-9a-zA- 
2:j*)"\\\"" 

qstring ["] ( ["\n"] | "\\\n" | "\\\"")+ ["] 



<SKIP>"\\\n" 

<SKIP> [^\n;] * 

<SKIP>[;] { 

<SKIP>[\n] { 



{ echo; libc_lineno++; } 
{ echo; RN (SDF_SKIP) ; } 
echo; PREV_STATE; RN ( ' ; ' ) ; } 
echo; PREV_STATE; libc_lineno++ ; } 
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{ws} 

[\n] |"\\\n" 



{ echo; } 

{ echo; libc_lineno++; } 



It ^i^u 

<PS>"*" + '7" 

<PS>[^*\n] * 
<PS>"*"+ [^*/\n] * 

["] 

{qstring} 



{ echo; NEXT_STATE PS; } 

{ echo; PREV_STATE; } 

{ echo; } 
{ echo; } 

{ echo; RNdibctext [0] ) ; } 

{ char *ch; 

if (yy_start != (1 + 2 * QSTR) ) { 
REJECT; 

} 

for (ch=libctext; {*ch) l='\0';ch++) { 
if ((*ch) »\n') 
1 ibc_l ineno++ ; 

} 

libclval. string = copy_string (libc text) 
echo ; PREV_STATE ; RN (L_QSTRING) ; 



<INITIAL>" library' 
RN(K_LIBRARY) ; } 
<LIB> [;] 



< L 1 B > " aux__no_jpu 1 1 do wn_j) i n_p r op e r t y " 
<LIB>"bus_naming_style" 
<LIB> "comment " 
<LIB> " current_uni t " 

<LIB>"date" { echo 

<LlB>"del ay_mode 1 " 
<L1B> " in_place_swap_mode " 
<LIB> "leakage_power_unit " 
<LIB> "max_wired_emitters " 
<LIB> "multiple_drivers_legal " 

< L I B > " nom_j)r o c e s s " 
<LIB>"nom_temperature" 
<LIB> *' nom_voltage " 

< L I B > " nonp aire d_t wi n_i nc_de 1 ay_f unc " 
RN(K_NTIDF); } 



{ echo; NEXT_STATE LIB; NEXT_STATE NAME 

{ echo; RUdibctext [0] ) ; } 

echo; RN{K_ANPPP); } 

echo; NEXT_STATE QSTR; RN(K_BNS}; } 
echo; NEXT_STATE QSTR; RN ( K_COMMENT ) ; 
echo; NEXT_STATE CU; RN{K_CU); } 
NEXT_STATE QSTR; RN(K_DATE); } 
echo; NEXT_STATE DM; RN(K_DM); } 
echo; NEXT_STATE IPO; RN(K_IPSM) ; } 
echo; NEXT_STATE PU; RN(K_LPU); } 
echo; RN(K_MWE) ; } 

echo; NEXT_STATE BOOL; RN{K_MDL); } 



echo; RN{K__NP) 
echo; RN(K_NT) 
echo; RN{K__NV) 



{ echo; NEXT_STATE MMP; 



<LIB>"no_j)ulldown_pin_property" { echo; RN(K__NPPP); } 

<LIB>"piece_type" { echo; NEXT_STATE PT; RN(K_PT) ; } 

<LIB>"power_unit" { echo; NEXT_STATE PU; RN(K_PU); } 

<LIB>"preferred_outputjpad_slew_rate_control" { echo; RN (K_POPSRC) ; } 
<LIB>"preferred_output_jpad_voltage" { echo; RN{K_POPV); } 

<LIB>"pref erred__input_pad_voltage" { echo; RN(K_PIPV); } 

<LIB>"pulling_resistance_unit" { echo; NEXT_STATE RU; RN(K__PRU) 

<LIB>"reference_capacitance" { echo; RN(K_RC); } /* cmos2 

<LIB>"revision" { echo; NEXT_STATE REV; RN (K_REVISION) 

<LIB>"simulation" { echo; NEXT_STATE BOOL; RN (K_SIMULATION) ; } 

<LIB>"time_unit" { echo; NEXT_STATE TU; RN(K_TU); } 

<LIB>"unconnected_pin_j)roperty" { echo; RN(K_UPP); } 

<LIB>"voltage_unit" { echo; NEXT_STATE~VU; RN{K_Va) ; } 

<LIB>"wired_logic_function" { echo; NEXT_STATE WLF ; RN(KWLF); } 
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<LIB>"def ault_cell_leakage_power" { 
<LIB>"default_celljpower" { 
<LIB>"def ault_connection_class " 
<LIB>"def ault_edge_rate_breakpoint_f 0 ' 
<LIB> "def aul t_edge_rate_breakpoint__f 1 ' 
<LIB> "def ault_edge_rate_breakpoint_rO ' 
<LIB> "def aul t__edge_rate_breakpoint_rl ' 
<LIB>" def ault_emitter_count " 
<LIB> " def aul t_f al l_delay_intercept " 
<LIB>"def ault_f all_nonpaired_twin" 
<LIB>"def aul t__fall_pin_resi stance" 
<LIB>"def ault_f all_wire_resistance" 
<LIB> "def ault_f all_wor_emmiter" 
<LIB> "def ault_f all__wor_intercept " 

< L IB > " de f au 1 1 _f anou t _1 oad " 
<LIB> " def ault_inout_pin_cap " 
<LIB> "def ault_inout_pin_f all_res " 
<LIB> "def ault_inout_pin_rise_res " 
<LIB>"def ault_input_pin_cap" 
<LIB>"default_intrinsic_fall" 
<LIB>"def ault__intrinsic_rise" 
<LIB>"def ault_max_capacitance" 
<LIB>"defaul t_max_f anou t " 
<LIB>"defaul t_max_ t r ans i t i on " 
<LIB>"defaul t_max_u tilization" 
<LIB>"def ault_min__porosity" 
<LIB>"def ault_operating_conditions" 
<LIB>"def ault__output_pin__cap" 
<LIB>"def ault_outputjpin_f all_res" 
<LIB>"def ault_output_pin_rise_res" 
<LIB>"default_pin_liniit" 
<LIB> " def ault_pin_power " 
<LIB>"default_rc_f all_coef f icient " 
<LIB> "def ault_rc_rise_coeff icient" 
<LIB> "def ault__rise_delay_intercept " 
<LIB>"def ault_rise_nonpaired_twin" 
<LIB>"def ault_rise_jDin_resistance" 
<LIB>"def ault_rise_wire_resistance" 
<L I B > " de f aul t_r i s e_wor_emi 1 1 e r " 

< L IB > " de f au 1 t_r i s e_wo r_i n t e r c ep t " 
<LIB>"def aul t_setup_coeff icient " 
<LlB>"default_slope_fall" 
<LIB>"def ault_slope_rise" 
<LIB>"default_wire_load" 
<LIB>"default_wire_load_area" 
<LIB> "def aul t_wire_load_capaci t ance " 
<LIB> "def aul t_wire__load_mode " 
<LIB> "def ault_wire__load_resistance " 
<LIB>"def ault_wire_load_selection " 

<LIB>"k_j)rocess_cell_rise" 
<LIB>"k_process_cell_f all " 
<LIB>"k_process_cell_leakage_power" 
<LIB>"k_jprocess_cell jpower" 
<IjIB> "k__process_drive_current " 

} 



echo; 
echo ; 

{ 
{ 
{ 
{ 
{ 

echo; 
echo; 
echo; 
echo; 
echo; 

{ 

echo; 
echo; 
echo; 
echo; 
echo; 
echo; 
echo; 
echo; 

{ 

echo; 
echo; 

{ 

echo ; 
echo; 
echo; 
echo; 
echo; 
echo; 
echo; 
echo ; 
echo ; 
echo; 
echo; 
echo; 
echo; 

{ 

echo; 
echo; 
echo; 
echo; 
echo; 
echo; 

{ 

echo; 
echo; 
echo; 



RN(K_DCLP); } 
RN(K_DCP); } 
echo; RN{K_DCC) 
echo; RN(K_DFO) 
echo; RN{K_DF1) 
echo; RN(K_DRO) 
echo; RN(K_DR1) 
RN(K_DEC>; } 
RN{K_DFDI); } 
RN(K_DFNT); j 
RN(K_DFPR); } 
RN(K_DFWR); ) 
echo; RN(K_DFWE) 
RN(K_DFWI); } 
RN(K_DFL); } 
RN(K_DIOPC); } 
RN{K_DIOFR); } 
RN(K_DIORR) ; } 
RN(K_DIPC); } 
RN(K_DIF); } 
RN(K_DIR); } 
echo; RN(K_DMC) ; 
RN(K_DMFO); } 
RN(K_DMT); } 
echo; RN(K_DMU) ; 
RN(K_DMP) ; } 
RN{K_DOC); } 
R1^(K_D0PC) 
RN{K_DOFR) 
RN(K_DORR) 
RN(K_DPL) ; 
RN(K__DPP) ; 
RN(K_DRFC) 
RN(K_DRRC) 
RN(K_DRDI) 
RN{K__DRNT) 
RN(K_DRPR) 
RN(K__DRWR) 
echo; RN{K_DRWE) ; } 



} 



/* cmos2 */ 

/* cmos2 */ 

/* cmos2 */ 

/* cmos2 */ 



cmos2 
cmos2 



/* cmos2 */ 



RN(K__DRWI) 
RN{K_DSC) ; 
RN(K_DSF) ; 
RN(K_DSR) ; 
NEXT_STATE NAME; RN(K_DWL); } 
RN{K_DWLA); } 
echo; RN{K_DWLC) ; } 
NEXT_STATE WLM; RN{K_DWLM); } 
RN(K_DWLR) ; } 

NEXT_STATE NAME; RN(K_DWLS); } 



echo; scaling_attr = 0; RN{P_CR); } 

echo; scaling_attr = 0; RN(P_CF); } 

echo; scaling_attr = 0; RN(P_CLP); } 

echo; scaling_attr = 0; RN(P_CP); } 

{ echo; scaling_attr = 0; RN(P_DC) 
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libc lex.l 



<LIB> " k_process_drive_f all " { echo ; 
/* old */ 

<LIB> " k_j>rocess_drive_r ise " { echo ; 
/* old */ 

<LIB>"k_process_fall_delay__intercept " { 
RN(P_FDI); } 

<LIB>"k_j)rocess_f all_pin_resistance" { 
RN(P_FPR); } 

<LIB>"k__process_f all ^propagation" { echo; 

<LIB>"k_process_fall_transition" { echo; 

<LIB> " k j)rocess_f al l_wire_resi stance " { 

RJSr(P_FWR); } 

<LIB>"k_process_f all_wor_eTnitter" { echo; 

<LIB>"k_process_fall_wor_intercept" { echo; 

<LIB>"kjprocess_hold_f all" { echo; 

<LIB>"k__process_hold_rise" { echo; 

<LIB> "k_process_internal_power " ( 

} 

<LIB>"k_j)rocess_intrinsic_f all" { 

} 

<LIB>"k_process_intrinsic__rise" { 



scaling^attr = 

scaling__attr = 

echo; scaling^ 

echo; scaling_ 

scaling__attr = 
scaling_attr = 
echo; scaling_ 

scaling_attr = 
scaling_attr = 
scaling__attr = 
scaling_attr = 
echo; scaling_ 

echo; scaling_ 

echo; scaling 



} 



<LIB>"k_j)rocess_min_period" 

< L I B > " k__pr oce s s__mi n_pu 1 s e_wi d t h_hi gh " 

RN(P_]yiPWH) ; } 

< L I B > " k_pr oca s s_mi n_pu 1 s e__wi d t h_l ow " 
RN(P_MPWL) ; } 

<LIB>"k_j>rocess__nochange_f all " 

} 

<LIB> "k_process_nochange_rise" 

} 

<LIB>"k_j>rocess__pin_cap" { 
<LIB>"k_j3rocess jiin_power" { 
<LIB> "k_process_recovery_f all " 

} 

< L I B > " k_pr oce s s_r e cove ry _r ise" 

} 

<LIB>"k_jprocess_removal_f all" { 
<LIB> "k__process__removal_rise" { 
<LIB>"k_jprocess_rise_delay_intercept " 
RN(P_RDI); } 

<LIB> "k_process_rise_pin_resi stance" 
RN(P_RPR); } 

<LIB> "k__process_rise_propagation" { 
<LIB> " k_j>rocess__ri se_t rans i t ion " { 
<LIB > " k_proces s_r i se_wire_res istance " 
RN(P_RWR) ; } 

<LIB> "k_jprocess_rise_wor_emitter " { 
<LIB>"k_j>rocess_rise_wor_intercept " { 



{ echo; scaling_attr = 
echo; scaling_ 



{ 



{ 

echo; 
echo; 

{ 



echo; scaling_ 

echo; scaling_ 

echo; scaling_ 

scaling_attr = 
scaling_attr = 
echo; scaling_ 



: 0; RN(P_DF) ; 

0; RN(P_DR) ; 

_attr = 0; 

_attr = 0; 

= 0; RN(P_FP) ; 
= 0; RN(P__FT) ; 
_attr = 0; 

= 0; RN(P_FWE) ; } 
= 0; RN(P_FWI) ; } 
= 0; RN(P_HF) ; 
= 0; RN(P_HR) ; 
_attr = 0; RN(P_IP) 

_attr = 0; RN(P_IF) 

_attr = 0; RN(P__IR) 

= 0; RN{P_MP) ; } 
_attr = 0; 

_attr = 0; 

_attr = 0; RN(P_NF) ; 

_attr = 0; RN{P_NR) ; 

= 0; RN{P_PC) ; } 
= 0; RN{P_PP) ; } 
attr = 0; RN(P RF) ; 



{ echo; scaling_attr = 0; RN(P_RR); 



echo; scaling_attr ■ 
echo; scaling^attr ■ 
{ echo; scaling_ 



= 0; RN(P__REF) ; } 
= 0 ; RN ( P_RER ) ; } 
_attr = 0; 



{ echo; scaling_attr = 0; 



<LIB>"kj)rocess_setup_f all " 
<LIB> "k_jprocess_setup_r i se " 
<LIB>"k_j)rocess_skew_f all " 
<LIB>"k_process_skew__rise " 
<LIB>"k__process_slope__f all " 

/* old */ 
<LIB> "k_j5rocess__slope_ri se " 

/* old */ 



{ 



echo; scaling_attr ■■ 

echo; scaling_attr • 

{ echo; scaling_ 

echo; scaling_attr = 

echo; scaling_attr = 

echo; scaling_attr = 

echo; scaling_attr : 

echo; scaling_attr = 

echo; scaling__attr = 

echo; scaling_attr : 



= 0; RN{P_RP) ; } 
= 0; RN{P_RT) ; } 
attr = 0; 



{ echo; scaling_attr = 



0; 


RN{P_ 


_RWE) 


- } 


0; 


RN(P_ 


_RWI) 


• } 


0; 


RN(P_ 


_SF) ; 


} 


0; 


RN{P_ 


_SR) ; 


} 


0; 


RN(P_ 


_SKF) 


} 


0; 


RN{P_ 


_SKR) 


^ } 


0; 


RN(P~ 


_SLF) 


r } 


0; 


RN(P_ 


_SLR) 


^ } 
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<LIB>" kjprocess_wire_cap" 
<LIB>"kjprocess_wire__res" 

<LIB> " k_temp_cell_rise" 

< L IB > " k_t emp_c e 1 l_f all" 

<LIB> " k_t emp_cel l_leakage__power " 

< L I B > " k_t emp_c e 1 l__powe r " 
<LIB> " k_temp_drive_current " 
<LIB> " k_temp_drive_f all " 

/* old */ 
<LIB> " k_temp_drive_rise" 

/* old */ 
<LIB> " k_temp_f al l_delay_intercept " 

< L IB > " k_t emp_f a 1 1 j> in_re s i s t ance " 
<LIB> " k_temp_f al l_propagation" 

} 

<LIB>" k__temp_f all__transition" 

< L IB > " k__t emp_f a 1 l_wi r e_r e s i s t anc e " 
<LIB> " k_temp_f al l_wor_emitter " 
RN(P_FWE); } 

<LIB> "k__temp_f all_wor_intercept " 
<LIB>"k_temp_hold_fall" 

< L IB > " k_t emp_ho 1 d_r i s e " 

< L IB > " k_t emp_in t e rna l^powe r " 
<LIB> "k_teTnp_intrinsic_f all " 
<LIB>"k_temp__intrinsic_rise" 

< LI B > " k_t eTnp_mi n_j)er i od " 

< L I B > " k_t emp_mi n_j)u 1 s e_wi d t h_h i gh " 

< L I B > " k_t emp__min__pul s e_wi d t h_l ow " 
<LIB> "k_temp_nochange_f all " 
<LIB> "k_temp_nochange_rise " 
<LIB>"k_temp jiin_cap " 

<LIB> '•k_tempjpinjpower" 
<LIB> "k_temp_recovery__f all " 

< L IB > " k_t emp_r e c ove ry_r i s e " 
<LIB> "k__temp_removal_f all " 

< L I B > k_t emp_r emova l__r i s e " 
<LIB>" k_teTnp_rise_delay_intercept" 

< L IB > " k_ t emp_r i s e ji in__r e s i s t anc e " 

< L I B > " k_t emp_r i s e_p r op aga t i on " 

} 

<L IB > " k_t eTnp_r i s e_t rans i t i on " 

< L IB > " k_t emp_r i s e_wi r e_r e s i s t anc e " 

< L I B > " k__t emp_r i s e__wo r_emi 1 1 e r " 
RN(P_RWE); } 

<LIB>"k_temp_rise_wor_intercept " 
<LIB>"k_temp_setup_fall" 

< L IB > " k_t emp__s e t up_r i s e " 
<LIB> "k_temp_skew_f all " 
<LIB>"k_temp_skew_rise" 
<LIB>"k_temp_slope_fall" 

/* old */ 
<LIB>"k_temp__slope__rise" 

/* old */ 
<LIB > " k_t eTnp__wi re_cap " 
<LIB> "k_temp_wire_res " 



echo; scaling_attr 




0; RN 


(P_ 


_WC) ; 


} 


echo; scaling_attr 




0; RN 


(P_ 


]WR) ; 


} 


echo; scaling attr 




1 


• RN 


;p 


CR) ; 




echo 


• scaling_attr 


= 


1 


• RN 


(p] 


]CF) ; 




echo; scaling attr 




1 


- RN 


(P 


CLP) 


; ) 


echo; scaling_attr 




1 


• RN 


(p] 


'cP) ; 




echo; scaling_attr 


= 


1 


• RN 


(p_ 


'do ; 


} 


echo; scaling_attr 




1; RN 


(p_ 


_DF) ; 




echo; scaling_attr 




1; RN 


(p_ 


_DR) ; 


} 


echo 


• scaling_attr 




1 


- RN 


(p_ 


_FDI) 


; } 


echo; scaling_attr 




1; RN 




_FPR) 


; } 


{ echo; scaling_attr = 


i" 


• RN(P_FP) 


echo; scaling_attr 




1 


• RN 


(p_ 


_FT) ; 


} 


echo 


* scaling_attr 




1 


• RN 


(p[ 


"fwr) 


; } 


{ echo; scaling_attr = 


i" 






echo 


• scaling attr 




1 


• RN 


(p_ 


_FWI) 


; } 


echo 


• scaling_attr 




1 


' RN 


(P_ 


_HF) ; 


} 


echo 


• scaling_attr 




1 


• RN 


(p~ 


"hR) ; 


} 


echo 


• scaling_attr 




1 


• RN 


(p" 


"iP) ; 


} 


echo 


• scaling_attr 




1 


• RN 


(p] 


IF) ; 


} 


echo 


• scaling attr 




1 


' RN 


(p~ 


_IR) ; 


} 


echo 


' scaling_attr 




1 


' RN 


(p_ 


MP) ; 


} 


echo 


• scaling_attr 




1 


• RN 


(p" 


_MPWH) ; } 


echo 


• scaling_attr 




1 


• RN 


(p" 


"mPWL) ; } 


echo, 


• scaling_attr 




1 


• RN 


(p_ 


_NF) ; 


} 


echo 


• scaling_attr 




1, 


' RN 


(p' 


"nR) ; 


} 


echo, 


• scaling_attr 




1, 


• RN 


(p_ 


_PC) ; 


} 


echo, 


scaling_attr 




1, 


• RN 


(p" 


]PP) ; 


} 


echo, 


' scaling_attr 




1, 


RN 


(p_ 


]rF) ; 


} 


echo, 


scaling_attr 




1, 


RN 




_RR) ; 


} 


echo. 


scaling__attr 




1, 


RN 


(P' 


"ref) 


; } 


echo J 


scaling__attr 




1, 


RN 


(P_ 


[rer) 


; } 


echo, 


scaling_attr 




1, 


RN 


(P" 


]rdi) 


; ) 


echo, 


scaling attr 




1, 


RN 


(P_ 


~RPR) 


; } 


{ echo; scaling_attr = 


l' 


RN{P_RP) 


echo, 


scaling attr 




1. 


RN 


[P__ 


_RT) ; 


} 


echO; 


scaling__attr 




1. 


RN 




_RWR) 


; } 


{ echo; scaling_attr = 


1; 




echo, 


scaling_attr 




1. 


RN 


[P_ 


RWI) 


; } 


echo. 


scaling_attr 




1, 


RN 


[P_ 


]SF) ; 


} 


echo, 


scaling_attr 




1. 


RN 




.SR) ; 


} 


echo. 


scaling_attr 




1. 


RN 


[P_ 


_SKF) 


; } 


echo, 


scaling_attr 




1, 


RN 


[P_ 


SKR) 


; } 


echo, 


scaling_attr 




1, 


RN 


[p] 


]SLF) 


; } 


echo. 


scaling attr 




1; 


RN< 


p_ 


_SLR) 


; } 


echo, 


scaling_attr 




1; 


RNi 


P WC) ; 


} 


echo; 


scaling_attr 




1; 


RN< 


P_ 


WR) ; 


} 
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<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 

<LIB> 

<LIB> 
<LIB> 
<LIB> 
} 

<LIB> 
<LIB> 
<LIB> 
RN(P 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
} 

<LIB> 
<LIB> 
<LIB> 
RN(P 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 
<LIB> 



k_volt___cell_rise" 
k_volt_cell_fall" 
k__vol t_cel 1_1 eakage__power " 
k_vol t_cel l_powe r " 
k_volt_drive_current " 
' k_vo 1 t_dr i ve_f all" 
/* old */ 

k_vo 1 1 __dr i ve_r i s e " 
/* old */ 

k_volt_f all_delay_intercept " 
k_volt_f all_j3in_resistance" 
'k_volt_f all_propagation" 

' k_vol t_f al l_t rans i t ion '* 
'k_volt_fall_wire__resi stance" 
' k_vol t_f al l_wor_emi 1 1 er " 
FWE) ; } 
k_volt_f all_wor__intercept " 
k__volt_hold__fall" 
k_vo 1 1 __hol d_r i s e " 
k_volt_internal_j)Ower" 
k_volt_intrinsic_f all " 
k_volt_intrinsic_rise" 
k__volt_min_j)eriod " 
k__vol t_min_pul se_wi d th_high " 
k_vo 1 1 _min_pu 1 s e_wi d t h_l ow " 
k_volt_nochange_f all " 
k_vo 1 t_nochange_r i s e " 
k_vo 1 1 _p i n_c ap " 
k_vo 1 t_p i n_jp owe r " 
k_volt_recovery_f all " 
k__vo 1 t_recovery_r i s e " 
k__volt_removal_f all " 
k_vo 1 t_r emova l_r i s e " 
k_volt_rise_delay_intercept " 
k_vo 1 t_r i s e_p i n_r esistance" 
k_vo 1 t_r i s e_p r op aga t i on " 



<LIB> 

<LIB> 
<LIB> 

<LIB> 
<LIB> 
<LIB> 



k_volt_ 
k__volt_ 
k__volt" 
RWE) ; } 
k_volt__ 
k_volt" 
k_volt_ 
k_volt" 
k_volt_ 
k_volt 
/* old" 
k_volt 
/* old" 
k_volt_ 
k volt' 



_rise_transition" 
_rise_wire_resi stance " 
_r i s e_wo r__emi 1 1 e r " 

rise_wor_intercept " 
_setup_f all " 
_setup_rise" 
_skew_f all" 
_skew_rise " 
slope_f all " 

"*/ 

slope_rise " 
*/ 

_wire_cap " 
wire res" 



capacitive_load_unit " 
define " 

define cell area" 



echo; scaling__attr = 2; RN 

echo; scaling_attr = 2 ; RK 

echo; scaling__attr = 2 ; RN 

echo; scaling^attr = 2 ; RN 

echo; scaling_attr = 2 ; RN 

echo; scaling_attr = 2; RN 

echo; scaling_attr = 2; RN 

echo; scaling_attr = 2; RN 

echo; scaling_attr = 2; RN 

{ echo; scaling_attr = 

echo; scaling_attr = 2 ; RN 

echo; scaling_attr = 2 ; RN 

{ echo; scaling_attr - 



echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 



scaling_attr = 2 
scaling__attr = 2 
scaling_attr = 2 
scaling_attr = 2 
scaling_attr = 2 
scaling_attr = 2 
scaling_attr = 2 
scaling_attr = 2 
scaling_attr - 2 
scaling__attr = 2 
scaling_attr = 2 
scaling_attr = 2 
scaling_attr = 2 
scaling_attr = 2 
scaling_attr = 2 
scaling_attr = 2 
scaling_attr - 2 
scaling_attr = 2 
scaling_attr = 2 
echo; scaling_at 



echo; scaling_attr = 

{ echo; scaling_attr = 2; 



echo; scaling__attr 

echo; scaling_attr 

echo; scaling_attr 

echo; scaling_attr 

echo; scaling__attr 

echo; scaling_attr 

echo; scaling__attr 

echo; scaling__attr 



echo; NEXT_STATE LU; RN(K_CLU); } 
echo; NEXT_STATE ANy_S ; RN (K_DEFINE) ; 
echo; NEXT STATE RT; RN(K DCA) ; } 



P„CR) ; 
P_CF) ; 
P_CLP) 
P_CP) 
P_DC) 
P_DF) 

P DR) ; 



P_FDI) ; } 
P_FPR) ; } 
2; RN(P_FP) 

P_FT) ; } 
P_FWR) ; } 
2; 



RN 


(P_FWI) ; 


} 


RN 


(P_HF) 




} 


RN 


(P_HR) 




} 


RN 


(P_IP) 




} 


RN 


(P_IF) 




} 


RN 


(P_IR) 




} 


RN 


(P_MP) 




} 


RN 


(P_MPWH) 


; } 


RN 


(P_MPWL) 


; } 


RN 


(P_NF) 




} 


RN 


(P_NR) 




} 


RN 


(P_PC) 




} 


RN 


Cp_pp) 




} 


RN 


(P_RF) 




} 


RN 


[P_RR) , 




} 


RN 


(P___REF) ; 


} 


RN 


[P_RER) ; 


} 


RN 


(P_RDI) 




} 


RN 


[P_RPR) 




} 




2; RN(P 


_RP) 


RN 


[P_RT) ; 




} 


RN 


[P_RWR) 




} 



2; 


RN 


(P_ 


_RWI) 


^ } 


2; 


RN 


(P_ 


[SF) ; 


} 


2; 


RN 


(P" 


_SR) ; 


} 


2; 


RN 


[P_ 


SKF) 


• } 


2; 


RN 


(P" 


[SKR) 


• } 


2; 


RN 


[P_ 


_SLF) 


- } 


2; 


RN 


[P_ 


_SLR) 


■ } 


2; 


RN 


[P_ 


_WC) ; 


} 


2; 


RN 


[P_ 


_WR) ; 


} 
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<LIB>" library_f eatures" 
<LIB> *'piece_def ine " 
<LIB> " routing_layers " 
<LIB> "technology" 



{ echo 
{ echo 



<LIB>"cell" 
RN(K_CELL) ; } 
<LIB> " input_voltage " 
RN(K_IV); } 

<LIB> " lu_table_template " 
RN(K_LTT); } 

<LIB>" operating_conditions " 
RN(K__OC); } 
<LIB> " output_voltage " 
RN{K_OV); } 

<LIB> "parameteri2ed_cell" 

RN(K_PCELL); } 

<LIB> "power_lut_template 

RN(K_PLT); } 

<LIB> "power_supply " 

RN(K_PS); } 

<LIB>"ris e_ t r an s i t i on__degr ada t i on " 
RN(K_RTD); } 

<LIB>"fal l_t r ans i t i on_degr ada t i on " 
RN(K_FTD); } 
<LIB>"scaled_cell" 
RN{K_SC)/ } 

<LIB>"scaling_f actors" 
RN{K_SF) ; } 
<LIB > " t iming_range " 
RN{K_TR); } 

<LIB>"type" { echo 

RN{K_TYPE) ; } 

<LIB>"wire__load" { echo 

RN(K_WL); } 

<LIB>"wire__load__selection" 

RN{K_WLS); } 

<LIB> " wire_load_table " 

RN{K_WLT) ; } 



/* ===== 

/* ---- 

< CELL, PC, 
< CELL, PC, 



echo; 


RN{K 


LF) ; } 




echo; 


RN{K_ 


PD); } 




echo ; 


RN{K 


RL) ; } 




NEXT_ 


STATE 


NAME; 


RN(K_TECH) ; } 


NEXT__ 


STATE 


CELL ; 


NEXT_STATE NAME; 


echo; 


NEXT_ 


STATE 


IV; NEXT_STATE NAME; 


echo; 


NEXT_ 


STATE 


LTT; NEXT_STATE NAME; 


echo; 


NEXT_ 


STATE 


OC; NEXT_STATE NAME; 


echo ; 


NEXT_ 


STATE 


OV; NEXT_STATE NAME; 


echo; 


NEXT_ 


STATE 


PC; NEXT_STATE NAME; 


echo; 


NEXT_ 


STATE 


PLT; NEXT_STATE NAME; 


echo; 


NEXT_ 


STATE 


PS; NEXT_STATE NAME; 


echo; 


NEXT_ 


STATE 


TD; NEXT_STATE NAME; 


echo; 


NEXT_ 


STATE 


TD; NEXT_STATE NAME; 


echo; 


NEXT_ 


STATE 


CELL; NEXT_STATE NAME; 


echo; 


NEXT_ 


STATE 


LIB; NEXT__STATE NAME; 


echo; 


NEXT_ 


STATE 


TR; NEXT_STATE NAME; 


NEXT_ 


STATE 


TYPE; 


NEXT_STATE NAME; 


NEXT_ 


STATE 


WL; NEXT_STATE NAME; 


echo; 


NEXT_ 


STATE 


WLS; NEXT_STATE NAME; 


echo; 


NEXT_ 


STATE 


WLT; NEXT_STATE NAME; 


{ 


echo ; 


RN (AREA) ; } 


{ 


echo; 


NEXT__ 


STATE BOOL; RN(C_APC); 




{ 


echo; 


NEXT_STATE NAME; 


{ 


echo; 


RN{C_ 


POWER) ; } 


r 


echo ; 


RN(C_ 


LP); } 




{ 


echo; 


RN{C_CC); } 


{ 


echo; 


NEXT_ 


STATE SA; RN(C_DF); } 


{ 


echo; 


NEXT_ 


STATE BOOL; RN(C_DT); 


{ 


echo ; 


NEXT_ 


STATE BOOL; RN(C_DU); 



cell group */ 
CENUM>"area" 

CENUM> " auxi 1 i ary_pad_ce 1 1 " 



} 

<CELL, PC, CENUM>"cell_footprint " 
RN(C_CF) ; 
< CELL, PC, 
< CELL, PC, 
< CELL, PC, 
< CELL, PC, 
< CELL, PC, 
} 

< CELL , PC , CENUM> " don t_u se " 

} 



} 

C ENUM > " c e 1 1 ji owe r " 
CENUM>"cell_leakage_power" 
CENUM> " con t en t i on_condi t ion " 
CENUM> " dont__f al se " 
CENUM>"dont touch" 
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libc lex.l 



<CELL, PC, CENUM>"geometry_j)rint" 

<CELL, PC, CENUM>"handle_negative_constraint ' 

RN(C_HNC); } 

<CELL>"interf ace_timing" \ 
} /* old version */ 

<CELL, PC, CENUM>"map__only" \ 

} 

<CELL , PC , CENUM> "pad_cel 1 " \ 

} 

<CELL, PC,CENUM>"pad_type" \ 
<CELL,PC,CENUN>"pin_limit" \ 
<CELL , PC , CENU]y[> "preferred " \ 
<CELL, PC, CENUiy[>" seal ing_f actors" \ 
<CELL, PC, CENUM>"scan_group" \ 

} 

<CELL, PC, CENUM>"single_bit_degenerate" 
<CELL , PC , CENUM> " vhdl_name " 

<CELL , PC , CENU]yi> "pin_equal " 
<CELL, PC, CENUM>"pin_opposite" 
< CELL, PC, CENUiyi>" rail connection" 



{ 

{ 

echo; 

echo; 

echo; 

echo; 
echo; 
echo; 
echo; 
echo; 

{ 



echo; RN(C_GP) ; } 
echo; NEXT_STATE BOOL; 

NEXT_STATE BOOL; RN(C_IT); 

NEXT_STATE BOOL; RN(C_MO); 

NEXT_STATE BOOL; RN(C_PC); 

RN(C_PT); } 
RN(C__PL); } 

NEXT_STATE BOOL; RN(C_P); } 
RN(C_SF) ; } 

NEXT STATE QSTR; RN{C SG) ; 



echo; RN(C_SBD) ; } 
{ echo; RN(C_Vlsr) ; } 



<CELL,PC> "bundle" { echo; 

<CELL , PC , CENUM> "bus " 

<CELL, PC>" internal j>ower" 

<CELL, PC>"leakage_power" 

<CELL, PC, CTC>"f f " { echo 

<CELL, PC, CTC>"f f_bank" 

<CELL, PC, CTC>" latch" 

<CELL, PC, CTC>"latch_bank" 

<CELL,PC>"lut" 

/* for FPGA */ 
<CELL, PC >" memory" { echo 

< CELL , PC , BUS > " pin " 
RN(C_PIN) ; } 

<CELL, PC>" rout ing_t rack" 
<CELL , PC , CTC> " state " 

/* old ff, latch */ 
<CELL , PC , CTC> " s tatet able " 
<CELL, PC, CENUM> " test_cell " 
<CELL,PC,CENUM,BUS>" ; " 



{ 
{ 
{ 

NEXT_ 
echo; 
echo; 
echo ; 
NEXT_ 
echo; 
echo; 
echo; 
echo; 



echo; 
echo; 
echo; 

STATE 
NEXT 
NEXT 
NEXT 
STATE 
NEXT 
NEXT 
NEXT 
NEXT 



:_PE) ; } 



RN(C_PE 
RN(C_PO) 
RN(C RC) 



} 



CBO ; RN ( C_BUNDLE ) ; } 
_STATE BUS; RN(C_BUS); 

Estate cip; rn(c_ip); ; 

[state CLP; RN{C__LPG); 
FF; RN(C_FF) ; } 
_STATE FF; RN(C_FFB); ' 
[state CL; RN(C_LATCH)^ 
_STATE CL; RN(C_LB); } 
[state LUT; RN(C_LUT); 



} 



NEXT_STATE CM; RN(C_MEM); } 

echo; NEXT_STATE PIN; NEXT_STATE NAME; 

echo; NEXT_STATE CRT; RN(C_RT); } 
echo; NEXT_STATE OST; RN(C_STATE); } 

echo; NEXT_STATE CST; RN(C__ST); } 
echo; NEXT_STATE CTC; RN(C_TC); } 
echo; RN (libctext [0] ) ; } 



/* boundleO in cell */ 

<CBO> "members " 
<CBO> [;] 



{ echo; RN (MEMBERS); } 

{ echo; RN (libctext [0] ) ; } 



-- bus{) group in cell */ 



<BUS>"bus_type" 
< BUS > " memory_re ad " 



{ echo; RN(BUS_TYPE) ; } 

{ echo; NEXT__STATE MR; RN {MEM_READ) ; } 



A-LEBC-Ml 



libc lex.l 



< BUS > " memory_wr i t e " 

/* 

*/ 

/* cell_enuTn{) group */ 

<CENXJM>"cell_property" 

< CENUN > " de f aul t_enum " 

< CENUM > " pa r ame t er i z ed_pi n " 

/* parameterized_pin group 

<PP>"pin_properties" 
<PP>"disabled" 

} 



{ echo; NEXT^STATE MW; RN {MEM_WRITE) ; } 



<PP> [;] 



{ echo; RN(CE_PROPERTY) ; } 

{ echo; NEXT_STATE BOOL; RN(CE_DE); } 

{ echo; NEXT_STATE PP; RN{CE_PP); } 

{ echo; RN{PP_PROPERTIES) ; }; 

{ echo; NEXT_STATE BOOL; RN (PP_DISABLE) 

{ echo; RNdibctext [0] ) ; } 



/* ff{), ff_bank() group <FF> */ 

/* latchO, latch_bank{) group <CL> */ 

/* memory_write ( ) group (MW) */ 

/* state 0 group (OST) old ff, latch */ 



<FF, OST, MW>"clocked_on" 

<FF , OST> " next_s tate " 

<FF,OST, CL>"clear" 

<FF,OST,CL>"preset" 

<FF , OST , CL> " clear_j)reset__var 1 " 

<FF,OST, CL>"clear_preset_var2 " 

<FF,OST>"clocked_on_also" 

< CL , OST , MW > " enable " 

<CL, OST>"enable_on__also" 

<CL,OST>"data_in" 

<OST>"force_01" 

<OST>"force_10" 

<OST>"force__00" 

<OST>"force_ll" 

<FF,MW,CL,OST> [;] 



{ 



{ 



} 



echo; RN{CLOCK_ON) ; 

echo; RN (NEXT__ST) ; } 

echo; RN (CLEAR) ; } 

echo; RN (PRESET); } 

{ echo; RN(CL_PS_V1) 

{ echo; RN(CL__PS_V2) 

echo; RN(ON_ALSO); } 

echo; RN{ENABLE); } 

{ echo; RN{ON_ALSO); } 
{ echo; RN(DATA_IN); } 

echo; RN(FORCE_01); 

echo; RN{FORCE_10) ; 

echo; RN{FORCE_00) 

echo; RN(F0RCE_11) 
{ echo; RNdibctext [0] ) ; 



{ 



} 
} 

3_00) ; } 

-); } 



/* 

*/ 

/* internal_power ( ) , leakage_power ( ) group */ 

<CIP>"related__input" { echo; RN (REL^INP) ; } 

<CIP>"related_inputs" { echo; RN (REL_INPS) ; } 

<CIP>"related_OUtputs" { echo; RN (REL_0UTP) ; } 

<CIP> "values" { echo; RN(VALUES); } 

<PIP>"equal_or__opposite_output " { echo; RN(IP_E000); } 

<PIP>"power_level" { echo; RN(IP_PL); } 

<PIP>"fall_power" { echo; NEXT_STATE VS; RN{IP_FP); } 

<PIP>"rise_power" { echo; NEXT_STATE VS; RN(IP_RP); } 

<PIP>"power" { echo; NEXT_STATE VS; RN (IP_POWER) ; } 

<CLP> "value" { echo; RN (VALUE); } 

<CIP,CLP,PIP> [;] { echo; RN (libctext [0] ) ; } 
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/* lut 0 group */ 

<LUT> " input j>ins " 
<LUT> [; ] 



{ echo; RN{LUT_IP); } 

{ echo; RNdibctext [0] ) ; } 



/* 

*/ 

/ * memory { ) group * / 

<CM>"type" 
<CM>" ram" 
<CM>" rom" 

<CM>"address_width" 
<CM>"word_width" 
<CM>"column_address" 
< CM > " row_addre s s " 
<CM> [;] 



{ 



RN(CM_TYPE); } 
RN(CM_RAM); } 
RN(CM__ROM); } 
echo; RN(CM_ADDR_WIDTH) ; 
{ echo; RN(CM_WORD_WIDTH) ; } 

{ echo; RN (CM__C_ADDR) ; } 
{ echo; RN(CM_R__ADDR) ; } 

{ echo; RNdibctext [0] ) ; } 



echo; 
echo; 
echo; 

{ 



/* 
*/ 

/* 



pinO group */ 



echo ; 
echo ; 
echo ; 
{ 



PP>" capacitance" { echo; 

PP>" clock" { echo; 

PP>"clock_gate_enable_pin" { 

} 

PP> "connection_class 
PP> "direction" 
PP>"dont_false" 
PP> " drive_current " 
PP> " driver__type " 
PP> "edge_rate_breakpoint_f 0 " 
PP> "edge_rate_breakpoint_f 1 " 
PP> " edge_rate_breakpoint_rO " 
PP> "edge_rate_breakpoint__rl " 
PP> "edge_rate_f all " 
PP>"edge_rate_rise" 
PP>"edge_rate_load_fall" 
PP> " edge_rate_load_rise " 
PP> " emi tter_count " 
PP> " f all__current_slop_af ter_ 



RN(PIN_CAP); } 
NEXT_STATE BOOL; RN(PIN__CLK) 
echo; NEXT STATE BOOL; 



RN{PIN_CC) ; } 

NEXT_STATE DIR; RN {PIN__DIR) ; 
NEXT_STATE SA; RN(PIN_DF); } 
echo; RN(PIN_DC); } 
( echo; NEXT_STATE DRT; RN(PIN_DT); ] 



echo; 
echo; 
echo ; 
echo; 
echo; 
echo; 

{ 
{ 

{ echo; 
threshold 



} 



<PIN, CBO,BUS, 
<PIN,CBO,BUS, 
<PIN, CBO,BUS, 
RN(PIN_CGEP) ; 
<PIN, CBO^BUS, 
<PIN,CBO,BUS, 
<PIN,CBO,BUS, 
<PIN, CBO,BUS, 
<PIN,CBO,BUS, 
<PIN,CBO,BUS, 
<PIN, CBO,BUS, 
<PIN,CBO,BUS, 
<PIN,CBO,BUS, 
<PIN,CBO,BUS, 
<PIN,CBO,BUS, 
<PIN,CBO,BUS, 
<PIN,CBO,BUS, 
<PIN, CBO,BUS, 
<PIN, CBO,BUS, 

} 

<PIN, CBO,BUS,PP>"fall_current_slop__before_threshold" { echo; RN (PIN_FCSBT) 

} 

<PIN,CBO,BUS, 
<PIN,CBO,BUS, 
<PIN,CBO,BUS, 
<PIN, CBO,BUS, 
<PIN,CBO,BUS, 
<PIN,CBO,BUS, 
<PIN, CBO,BUS, 
<PIN,CBO,BUS, 
<PIN,CBO,BUS, 
<PIN,CBO,BUS, 
<PIN,CBO,BUS, 
old */ 

<PIN,CBO,BUS, 



RN(P1N_ERBF0) ; 
RN(PIN_ERBF1) ; } 
RN(PIN_ERBRO) ; } 
RNCP1N_ERBR1) ; } 
RN(PIN_ERF); ) 
RN(PIN_ERR); } 
echo; RN(PIN_ERLF) ; } 
echo; RN(PIN_ERLR) ; } 
RN(PIN_EC); } 

{ echo; RN(PIN_FCSAT) 



} 



} 



} 



PP>"fall_time__after_threshold" { echo; RN(PIN_FTAT) 

PP>"fall_time__before__threshold" { echo; RN(PIN_FTBT) 

PP>"fall_wor_emitter" { echo; RN(PIN_FWE); } 

PP>"fall_wor_intercept" { echo; RN(PIN_FWI); 

PP>"fanout_load" { echo; RN{PIN_FL); } 

PP>"function" { echo; RN {PIN_FUNCTION) ; } 

PP>"hysteresis" { echo; NEXT_STATE BOOL; RN(PIN_H); 

PP>"input_map" { echo; RN(PIN_IM); } 

PP>"input__signal_level" { echo; RN (PIN__ISL) ; } 

PP>"input_voltage" { echo; RN(PIN_IV); } 

PP>"internal_node" { echo; RN(PIN_IN); } 



PP>"inverted_output" { echo; NEXT_STATE BOOL; RN(PIN_IO); } 
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<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

RN{PIN_MDL); } 

<PIN;CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

RN(PIN_PFT) ; } 

<PIN, CBO,BUS, PP> 

<PIN,CBO,BUS,PP> 

<PIN, CBO^BUS, PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

<PIN,CBO,BUS,PP> 

} 

<PIN,CBO,BUS,PP> 

} 

<PIN,CBO,BUS,PP> 
<PIN,CBO,BUS,PP> 
<PIN,CBO,BUS,PP> 
<PIN,CBO,BUS,PP> 
<PIN,CBO,BUS,PP> 
RN{PIN_SC) ; } 
<PIN,CBO,BUS,PP> 
<PIN, CBO,BUS,PP> 
<PIN,CBO,BUS,PP> 
<PIN,CBO,BUS,PP> 
<PIN, CBO,BUS,PP> 
<PIN; CBO,BUS,PP> 



is_pad" { echo; 

max_fanout" { echo; 

max_transition" { echo; 
"max_capacitance" { echo; 
min__f anout " { echo ; 

Tnin_transition" { echo; 
Tnin_capacitance" { echo; 
min__per iod " { echo ; 

Tnin_j)ulse_width_high" { 
min_pulse_width_low" { 
Tnulticell_pad_pin" { echo; 
Tnultiple_drivers_legal " { 



NEXT_STATE BOOL; RN{PIN__IP); } 
RN(PIN_MAX_FO) ; } 
RN ( PIN_MAX_TRANS ) ; } 
RN ( P IN_MAX_CAP ) ; } 
RN(PIN_MIN_FO) ; } 
RN(PIN_MIN_TRANS} ; } 
RN(PIN_MIN_CAP) ; } 
RN(PIN_MP); } 
echo; RN{PIN__iy[PWH) ; } 
echo; RN(PIN_MPWL); } 
NEXT_STATE BOOL; RN(PIN_MPP); 
echo; NEXT STATE BOOL; 



nextstate_type" { echo; NEXT_STATE NST; RN{PIN_MST); } 
output_signal_level" { echo; RN{PIN_OSL); } 

output_voltage" { echo; RN(PIN_OV) ; } 
pin_func_type" { echo; NEXT_STATE PFT; 



{ 



pin_power " 

pref er_tied" { 
primary_output " { 
pulling_current " { 
pu 1 1 i ng_r e s i s t anc e " 
ref erence_capacitance " 



echo; RN{PIN_PP) ; } 
echo; RN{PIN_PT) ; } 

echo; NEXT_STATE BOOL; RN(PIN_PO); } 
echo; RN(PIN_PC) ; } 

{ echo; RN{PIN__PR) ; } 
{ echo; RN(PIN_RC); } 



rise_current_slop_af ter_threshold" { echo; RN (PIN_RCSAT) 
rise_current_slop_before_threshold" { echo; RN (PIN_RCSBT) 



r i s e_t ime_a f t e r_t hr e s ho Id " 
rise time before threshold" 



{ 



{ 



echo; RN{PIN_RTAT) ; } 
echo; RN(PIN_RTBT) ; } 
{ echo; RN(PIN_RWE); } 

echo; RN(PIN_RWI); } 
echo; NEXT STATE PSC; 



{ 



r i s e__wor_em i 1 1 e r " 
rise_wor_intercept " 

slew_control" { 

state_function" { echo; RN(PIN_SF); } 

three_state" { echo; RN(PIN_TS); } 

vhdl_name" { echo; RN(PIN_W); } 

wire_capacitance" { echo; RN(PIN_WC); } 

wired_connection_class" { echo; RN(PIN_WCC); } 

x_function" { echo; RN(PIN_XF); } 



<PIN, CBO,BUS>" timing" 
} 

< PIN , CBO , BUS > " minjpul s e_wi dth " 
RN(MIN__PLUSE_WIDTH) ; } 

<PIN , CBO f BUS> "minimum__period " 
RN {MIN__PERIOD) ; } 

< P IN , CBO , BUS > " int e rnal _powe r " 
RN(PIN_IPO); } 

<PIN> [ ; ] 



{ echo; NEXT_STATE TI ; RN (TIMING) 

{ echo; NEXT_STATE MPW; 
{ echo; NEXT_STATE MP; 
{ echo; NEXT_STATE PIP; 
{ echo; RNdibctext [0] ) ; } 



/* memory_read { ) , memory_write ( ) */ 

<MR,MW> "address" { echo; RN (ADDRESS ) ; } 

<MR>[;] { echo; RN ( libc text [ 0 ] ) ; } 
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routing_track: 0 */ 

<CRT>" tracks" 

<CRT> " total_track_area " 

<CRT> [; ] 

/* 



{ echo; RN (TRACKS) ; } 
{ echo; RN{TRACK_AREA) ; } 
{ echo; RNdibctext [0] ) ; } 



/* statetableO */ 

<CST>"table" { echo; NEXT_STATE QSTR; RN (TABLE); } 

<CST>[;] { echo; RN ( libctext [ 0] ) ; } 

/* 



/★ test_cell() */ 

<CTC>"pin" { echo; NEXT_STATE NAME; RN(CTC_PIN); } 

<CTC>"direction" { echo; NEXT_STATE DIR; RN(CTC_DIR) ; } 

<CTC>" function" { echo; RN(CTC_FUNC) ; } 

<PIN,CBO,BUS,PP,CTC>"signal_type" { echo; NEXT_STATE SIG_T; RN(CTC_ST); } 
<PIN,CBO,BUS,PP,CTC>"test_output_only" { echo; NEXT_STATE BOOL; 

RN(CTC_TOO); } 

<CTC>[;] { echo; RN ( libctext [0] ) ; } 

= . = . = = = = = = = = = = = = = = = = = = = = = _ = = . = = = = = = = = 



/* timing 0 group */ 

<TI > " edge_rate_sens i t ivity_f 0 " 

<TI> "edge_rate_sensitivity__f 1" 

<TI> "edge_rate_sensi tivity_rO " 

<TI>"edge_rate_sensitivity_rl" 

<TI>"f all_resistance" 

<TI>"rise_resistance" 

<TI>"intrinsic__f all" 

<TI>"intrinsic_rise" 

<T1 > " related_bus_pins " 

<T1 > " related_output_pin " 

<TI , PIP>"related_pin" 

<TI , MPW , MP> " sdf _cond" 

RN(TI_SDF_C) ; } 

<TI > " sdf _cond_s tart " 

RN(TI_SDF_CS) ; } 

< T I > " s d f _c ond_e nd " 

RN(TI_SDF_CE) ; } 

<TI > " sdf _edges " 

<TI>"slope_fall" { 

<TI > " slope_rise " { 

<TI>"timing_type" { 

<TI > " t iming_sense " 

<TI , MPW, MP , PIP , CLP> "when" 

<TI > " when_start " { 

<TI>"when end" 



{ echo; RN{TI_ERSFO) 
{ echo; RN(TI_ERSF1) 
{ echo; RN(TI__ERSRO) 
{ echo; RN(TI_ERSR1) 

{ echo; RN(TI_FR) ; } 

{ echo; RN(TI_RR); } 

{ echo; RN(TI_IF) ; } 

{ echo; RN(TI__IR) ; } 

{ echo; RN{TI_RBP); } 

{ echo; NEXT__STATE ROP; 

{ echo; RN(TI_RP) ; } 

{ echo; /* NEXT_STATE QSTR; 



RN{TI__ROP) ; } 
/ 



{ echo; /* NEXT_STATE QSTR; */ 
{ echo; /* NEXT_STATE QSTR; */ 



{ echo; NEXT_STATE SDF__E; RN (TI__SDF_E) ; 
echo; RN(TI_SF) ; } 
RN(TI__SR) ; } 

NEXT_STATE TIT; RN(TI_TT); } 
echo; NEXT_STATE TIS; RN(TI_TS); } 
echo; RN(TI_WHEN); } 
echo; RN(TI_WS) ; } 

{ echo; RN(TI__WE) ; } 



echo; 
echo; 

{ 
{ 
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<TI > " f al l_delay_int ercept " 
<TI> "f all_nonpaired_twin" 
<TI>"f all_pin_resistance" 
<Tl>"f all_wire_resistance" 
<TI> "rise_delay_intercept" 
<TI>"rise_nonpaired_twin" 
<TI>"rise_pin_resistance" 
<TI> "rise_wire_resistance" 

<TI>"cel l_degrada t i on " 
<TI>"cell_fall" 
<TI>"cell_rise" 
<TI>"rise_propagation" 
<TI>"fal l^propaga t i on " 
<TI>"rise__transition^' 
<TI > " f ail_transition" 
<TI > " r i se_constraint " 
<TI > " f al l_constraint " 
<TI> [;] 



echo; 
echo; 
echo; 
echo ; 
echo; 
echo; 
echo; 
echo; 

echo; 
echo; 
echo; 
echo; 
echo; 
echo; 
echo ; 
echo; 
echo; 
echo; 



RN(TI_ 
RNCTI_ 
RN{TI_ 
RN(TI^ 
RNCTi] 
RN(Tl[ 
RN (TI_ 
RN(Tl" 



FDD 
FNT) 
FPR) 
FWR) 
RDI) 
RNT) 
RPR) 
RWR) 



} 



NEXT_STATE VS; 

NEXT_STATE VS ; 

NEXT_STATE VS ; 

NEXT_STATE VS ; 

NEXT_STATE VS; 

NEXT_STATE VS ; 

NEXT_STATE VS ; 

NEXT_STATE VS; 

NEXT__STATE VS; 
RNdibctext [0] ) ; } 



RN{CELL_DEGR) 
RN(CELL_FALL) 
RN{CELL_RISE) 
RN(R_PROP); } 
RN(F_PROP); } 
RN{R__TRANS) ; 
RN(F_TRANS) ; 
RN(R_CONS); } 
RN(F CONS) ; } 



/* 

*/ 

/* Tnin_pulse_width ( ) group */ 

<MPW>"constraint_high" { echo; RN (MPW_CH) ; } 

<MPW>"constraint_low" { echo; RN(MPW_CL); } 

<MPW>[;] { echo; RN (libctext [0] ) ; } 



/* 

^* min_pulse_width 0 group */ 

<MP>"constraint" { echo; RN(MP_C) ; } 

<MP>[;] { echo; RN (libctext [0] ) ; } 



/* input_voltage group 

<IV>"vil" 
<IV> "vih" 
<IV>"vimin" 
<IV>"viraax" 
<IV>[;] 



7 

{ echo; RN{IV__L) ; } 

{ echo; RN(IV__H) ; } 

{ echo; RN(IV_MIN}; 

{ echo; RN(IV_MAX) ; 



{ echo; RN (libctext [0] ) ; } 



/* lu_table_template group */ 

<LTT,PLT>"variable_l" { echo; 

<LTT;PLT>"variable__2" { echo; 

<LTT, PLT>"variable_3" { echo; 

<LTT,PLT,VS,CIP>"index__l" { echo; 

<LTT,PLT,VS,CIP>"index__2" { echo; 

<LTT,PLT,VS,CIP>"index_3" { echo; 

<LTT , PLT> " input_ne t_t rans i t ion " { 

<PLT> "input_transition_time" { echo; 
<LTT, PLT>"total_output_net_capacitance" { 

<LTT, PLT>"output_net__length" { echo; 



RN{TBL_VAR1) 
RN{TBL_VAR2) 
RN(TBL_VAR3) 
RN{TBL_IDX1) 
RN{TBL_IDX2) 
RN(TBL_IDX3) 
echo; RN(LTT_INT); } 
RN(LTT__INT) ; } 
echo; RN (LTT_TONC) ; } 
RN (LTT_ONL) ; } 
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<LTT, PLT>"output_net_wire__cap" ( echo; RN ( LTT_ONWC ) ; } 

<LTT,PLT>"output_netjpin_cap" { echo; RN (LTT_ONPC) ; } 

<LTT; ROP>"related_out_total_output_net_capacitance" ( echo; 

RN{LTT_ROTONC) ; } 

<LTT,ROP>"related_out_output_net_length" { echo; RN {LTT_ROONL) ; 

} 

<LTT , ROP> "related_out_output_net_wire_cap" { echo ; 

RN(LTT_ROONWC) ; } 

<LTT, ROP>"related_out_output_net jin_cap" { echo; RN {LTT_R0ONPC) 

} 

<LTT>" cons trained_pin_transit ion" ( echo; RN(LTT_CPT) ; } 

<LTT>"related_pin_transition" { echo; RN(LTT_RPT}; } 

<LTT, PLT>"output_pin_transition" { echo; RN(LTT_OPT); } 

<LTT>"connect_delay" { echo; RN(LTT__CD) ; } 

<VS>"values" { echo; RN(VALUES); } 

<LTT,PLT,VS,ROP> [;] { echo; RN (libctext [0] ) ; } 

/* operating_conditions group */ 

<OC>"process" { echo; RN (OC_PROCESS) ; }; 

<0C>" temperature" { echo; RM(OC_TEMP) ; }; 

<OC>"tree_type" { echo; NEXT_STATE TT; RN(OC_TREE); }; 

<OC>"voltage" ( echo; RN(OC_VOLT); }; 

<OC,PS>"power_rail" { echo; RN(OC_PR); }; 

<0C>[;] { echo; RN (libctext [0] ) ; } 

/* output_voltage group */ 

<0V>"VOl" { echo; RN{OV_L); } 

<OV>"voh" { echo; RN(OV_H); } 

<OV>"voTnin" { echo; RN(OV_MIN) ; } 

<OV>"vomax" { echo; RN (OV_MAX) ; } 

<0V>[;] { echo; RN (libctext [0] ) ; } 

parameteri2ed_cell group */ 

<PC>"cell_enum" { echo; NEXT_STATE CENUM; NEXT_STATE 

NAME ; RN ( PC_CELL_ENUM ) ; } 

/* power__lut_teTnplate group PLT */ 

/* power_supply group */ 

<PS>"default_power_rail" { echo; RN(PS_DPR); ] 

/* rise_transition_degradation group */ 

/* f all_transition_degradation group */ 

<TD>"values" { echo; RN(VALUES); } 

<TD>[;] { echo; RN (libctext [0] ) ; } 

/* scaled_cell group ? */ 

/* scaling_f actors group ? */ 

/* timing_range group */ 

<TR>"faster_f actor" { echo; RN(TR_FF) ; } 

<TR>"slower_f actor" { echo; RN(TR_SF); } 

<TR>[;] { echo; RN (libctext [0] ) ; } 

/* type group */ 

<TYPE>"base_type" { echo; RN (TYPE_BASE) ; } 

<TYPE> "array" { echo; RN (TYPE_ARRAY) ; } 
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<TYPE>"bit_f rom'' 

<TYPE>"bit_to" 

<TYPE>"bit_width" 

<TYPE> " data_tYpe " 

<TYPE>"bit" 

<TYPE>"downto" 

} 

<TYPE> [;] 

/* wire_load group */ 

<WL>"area" 
< WL> "capacitance " 
<WL>" resistance" 
<WL> "slope" 

< WL , WLT > " f anou t_l engt h " 
<WL>[;] 



{ echo; RN(TYPE_FROM) ; } 

{ echo; RN(TYPE_TO); } 
{ echo; RN(TYPE_WIDTH) ; } 
( echo; RN(TYPE_DT); } 
{ echo; RN (TYPE__BIT) ; } 

{ echo; NEXT_STATE BOOL; RN (TYPE_DOWNTO) 

{ echo; RNdibctext [0] ) ; } 



( echo; RN(AREA) ; } 

{ echo; RN(PIN_CAP); } 

{ echo; RN(WL_RES) ; } 

{ echo; RN(WL_SLOPE) ; } 

{ echo; RN(WL_FL) ; } 

{ echo; RNdibctext [0] ) ; } 



I' 



— wire__load_selection group */ 



<WLS>"wire_load_f rom_area" 
<WLS,NAiyiE,QSTR> [;] 



{ echo; RN(WLS_WLFA) ; }; 
{ echo; RNdibctext [0] ) ; } 



/* wire_load_table group */ 

<WLT>"fanout_area" { echo; RN (WLT_AREA) ; } 

<WLT>"f anout_capacitance" { echo; RN{WLT_CAP); } 

<WLT>"f anout_resistance" { echo; RN(WLT_RES); } 

<WLT>[;] { echo; RN ( libctext [0 ] ) ; } 



/* boolean value */ 

<BOOL>"true" 
<BOOL>" false" 
<BOOL>" ; " 



/★ current unit 

<CU>"A" 
<CU>"mA" 
<CU>"uA" 
<CU>" ; " 



load unit */ 



/* 

<LU>"mf " 
<LU>"uf " 
<LU>"nf " 
<LU>"pf " 
<LU>"f f " 
<LU>" ; " 



/* vote unit */ 

<VU>"V" 
<VU> "mV" 
<VU>" ; " 

/* power unit */ 

<PU>"W" 
<PU>"TnW" 



{ echo; PREV__STATE; RN(BOOL_T); } 
{ echo; PREV_STATE; RN(BOOL__F); } 
echo; PREV_STATE; RN ( 1 ibctext [0 ] ) ; } 



{ echo; PREV_STATE; RN(CU_A); } 

echo; PREV_STATE; RN(CU_MA); } 

echo; PREV_STATE; RN{CU_UA); } 

{ echo; PREV_STATE; RN ( libctext [0] ) ; } 



echo ; 
echo; 
echo; 
echo; 
echo; 



PREV_STATE; 
PRE V_S TATE; 
PRE V_S TATE; 
PREV_STATE ; 
PREV_STATE; 



RN(LU_MF) 
RN(LU_UF) 
RN(LU_NF) 
RK(LU_PF) 
RN{LU FF) 



{ echo; PREV_STATE; RN (libctext [0] ) ; } 



{ echo; PREV_STATE; RN(VU_V); } 
echo; PREV_STATE; RN(VU__MV); } 

{ echo; PREV_STATE; RN ( libctext [0] ) ; } 



{ echo; PREV_STATE; RN(PU_W); 
{ echo; PREV_STATE; RN(PU_MW) ; } 
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<PU>"uW" { echo; 

<PU>"nW" { echo; 

<PU>"pW" { echo; 

<PU>";" { 

/* resistance unit */ 

<RU>"ohm" { echo; 

<RU>"kohTn" { echo; 

<RU>";" { 

/* time unit */ 

<TU>"ns" { echo; 

<TU>"ps" { echo; 

<TU>";" { 

<DM>"generic_ecl" { echo; 

<DM>"generic_CTnos" { 

<DM> " table_lookup " { 

<DM>"cmos2" { echo; 

<DM>"piecewise_cmos" { 

<DM>";" { 

<IPO> "match_f ootpr int " { 

<IPO>"no_swapping" { 

<IPO>" ignore_f ootprint " { 

<IPO>";" { echo; 

<MMP> "max" { echo; 

<MMP>"min" { echo; 

<MMP>"plus" { echo; 

<MMP>";" { echo; 

<PT> "piece__length" { 

<PT>"piece_wire_cap" { 

<PT> "piece_pin_cap" { 

<PT>"piece_total__cap" { 

<PT>";" { 

/* wire logic function */ 

<WLF>"wired__and" { echo; 

<WLF>"wired_or" { 

<WLF>";" { echo; 

<WLM>"top" { echo; 

<WIjM> "segmented" { echo; 

<WLM> "enclosed" { 

<WLM>";" { echo; 

/* resource type (pad type) */ 

<RT>"pad_slots" { 

<RT>"pad_driver_sites" { 

<RT>"pad_input_driver_sites" { 

<RT> "pad_output_driver_sites " { 

<RT>[J { 

<RT>[;] { 



/* any string (include keywords 



PREV__STATE ; RN ( PU_UW ) ; } 
PREV_STATE ; RN ( PU_NW ) ; } 
PREV_STATE; RN(PU_PW); } 
echo; PREV_STATE; RN ( libctext [0 ] ) ; } 



PREV_STATE; RN{RU_OHM); } 

PREV_STATE ; RN ( RU_KCHM ) ; } 

echo; PREV_STATE; RN (libctext [0] ) ; } 



PREV_STATE; RN(TU_NS); } 
PREV_STATE ; RN { TU_PS ) ; } 
echo; PREV_STATE; RN ( libctext [0] ) ; } 

PREV_STATE; RN (DM_G_ECL) ; } 

echo ; PREV_STATE ; RN ( DM_G_CMOS ) ; } 

echo; PREV_STATE; RN ( DM_TBL_LOOKUP ) ; 

PREV_STATE ; RN {DM_CM0S2 ) ; } 

echo; PREV_STATE; RN { DM_P_COMS ) ; } 

echo; PREV_STATE; RN (libctext [0] ) ; } 

echo; PREV_STATE; RN(IPO_MF); } 
echo; PREV_STATE; RN(IPO_NS); } 
e cho ; PREV_S TATE ; RN ( I PO_I F ) ; } 
PREV_STATS; RN (libctext [0] ) ; } 

PREV__STATE ; RN ( MMP_MAX ) ; } 

PREV_STATE; RN(MMP_MIN); } 

PREV__STATE ; RN (MMP_PLUS ) ; } 

PREV^STATE; RN (libctext [0] ) ; } 

echo; PREV_STATE; RN (PT_LENGTH) ; } 

echo; PREV_STATE; RN (PT_WIRE_CAP) ; } 

echo; PREV_STATE; RN ( PT_PIN_CAP) ; } 

echo; PREV_STATE; RN ( PT_TOTAL_CAP ) ; } 

echo; PREV_STATE; RN (libctext [0] ) ; } 



PREV_STATE; RN (WLF_WAND) ; } 
echo; PREV_STATE; RN(WLF_WOR); } 
PREV_STATE ; RN (1 ibc text [ 0 ] ) ; } 

PREV_STATE; RN(WLM_T}; } 
PREV_STATE; RN{WLM_S); } 
echo; PREV_STATE; RN (WLM_E) ; } 
PREV_STATE; RN (libctext [0] ) ; } 



echo; PREV_STATE; RN(RT_PS); } 

echo; PREV_STATE; RN(RT_PDS); } 

echo; PREV_STATE; RN{RT_PIDS); } 

echo; PREV_STATE; RN(RT_PODS); } 

echo; RN(libctext [0] ) ; } 

echo; PREV__STATE; RN { libctext [0] ) ; } 

*/ 
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<ANY_S>{ string} { echo; libclval . string = 

copy_string(libctext) ; RN (Ii_STRING) ; } 

<ANY_S>";" { echo; PREV_STATE; RN ( libctext [ 0 ] ) ; } 



/★ tree_tYpe */ 

<TT> "best_case_tree " 
<TT> "balanced_tree " 
<TT>"worst_case_tree" 

<TT>" : " 



{ echo; PREV_STATE; RN(TT_BEST); } 

{ echo; PREV_STATE; RN(TT_BAL); } 

{ echo; PREV_STATE; RN (TT__WORST) ; } 

{ echo; PREV_STATE; RN ( libctext [0] ) ; } 



/★ dont_false condition */ 



<SA>"saO" { echo; 

<SA>"sal" { echo; 

<SA>"sa01" { echo; 

<SA>";" { 

/* direction */ 

<DIR>" input" { 

<DIR>" output" { 

<DIR>"inout" { 

<DIR>" internal" { 

<DIR>";" { echo; 

/* driver__type */ 

<DRT>"pull_up" { 

<DRT>"pull_down" { echo; 

<DRT>"open_drain" { echo; 

<DRT>"open_source" { 
} 

<DRT>"bus_hold" { 

<DRT>" resistive" { echo; 

<DRT>"resistive__0 " { 

<DRT>"resistive_l" { 

<DRT>";" ( echo; 

nextstate_type */ 

<NST>"data" { echo; 

<NST> "preset" { 

<NST> "clear" { 

<NST>"load" { echo; 

<NST>"scan_in" { 

<NST> " scan_enable " { 

<NST>";" { echo; 

/* pin_f unc_type */ 

<PFT> "clock_enable " { 

<PFT>"active_high" { 

<PFT>^'active_low" { echo; 

< PFT > " a c t i ve_r i s i ng " { 

<PFT> "active_f ailing" { 

<PFT>";" { echo; 

/* slew_control */ 

<PSC>"none" { echo; 



PREV_STATE ; RN ( SA_SAO ) ; } 

PRE V_S TATE ; RN { S A_SA1 ) ; } 

PREV_STATE; RN{SA_SA01); } 

echo; PREV_STATE; RN { libctext [0] ) ; } 



echo; PREV_STATE; RN (DIR_INPUT) ; } 
echo; PREV_STATE; RN (DIR_OUTPUT) ; } 
echo; PREV_STATE; RN {DIR_INOUT) ; } 
echo; PREV_STATE; RN (DIR_INTERNAL) ; } 
PREV_STATE; RN (libctext [0] ) ; } 



echo; PREV_STATE; RN (DRT_PULL_UP) ; } 
PREV_STATE; RN (DRT_PULL_DOWN) ; } 
PREV_STATE; RN {DRT_OPEN_DRAIN) ; } 
echo; PREV_STATE; RN {DRT_OPEN_SOTOCE) 

echo; PREV__STATE; RN (DRT_BUS_HOLD) ; } 
PREV_STATE; RN{DRT_RES); } 
echo; PREV_STATE; RN (DRT^RESO ) ; } 
echo; PREV_STATE; RN {DRT_RES1 ) ; } 
PREV_STATE; RN (libctext [0] ) ; } 



PREV_STATE; RN (N_DATA) ; } 

echo; PREV_STATE; RN (N_PRESET) ; } 

echo; PREV_STATE; RN(N_CLEAR); } 

PREV_STATE; RN{N_LOAD); } 

echo; PREV_STATE; RN (N_SCAN_IN) ; } 

echo; PREV_STATE; RN (N_SCAN_ENABLE) ; 

PREV_STATE; RN { libctext [0] ) ; } 



echo; PREV_STATE; RN ( CLK_ENMLE) ; } 
echo; PREV_STATE; RN { ACT_HIGH) ; } 
PREV_STATE; RN(ACT_LOW); } 
echo; PREV__STATE; RN (ACT_RISING) ; } 
echo; PREV__STATE; RN {ACT_FALLING) ; } 
PREV_STATE; RN (libctext [0] ) ; } 



PREV_STATE ; RN ( NONE_S C ) ; } 
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<PSC>"low" 
<PSC> "medium" 
<PSC>"high" 
<PSC>" ; " 

<SDF_E>"noedge" 
<SDF_E>"both_edges" 
<SDF_E>"start_edge" 
<SDF_E> " end__edge " 
<SDF E>";" 



{ echo; PREV_STATE; RN{LOW_SC); } 

{ echo; PREV_STATE; RN(MED_SC); } 

{ echo; PREV_STATE; RN(HIGH_SC); } 

{ echo; PREV_STATE; RN (libctext [0] ) ; } 



{ 
{ 
{ 

{ echo; 
{ echo; 



echo; PREV_STATE; RN{NO_EDGE); } 
echo; PREV_STATE; RJ^ (BOTH__EDGES) ; } 
echo; PREV__STATE; RN ( START_EDGE ) ; } 
PREV_STATE; RN ( END_EDGE ) ; } 
PREV_STATE; RN (libctext [0] ) ; } 



/* timing_type */ 

<TIT> " r is ing_edge " 
<TIT> " f alling_edge " 
<TIT>"preset" 
<TIT>"clear" 
<TIT>"hold_rising" 
<TIT>"hold_f ailing" 
<TIT>"setup_rising" 
<TIT>"setup_f ailing" 
<TIT>"recovery_rising " 
<TIT>"recoverY_f ailing" 
<TIT> " threads tate_disable " 
<TIT>"three_state_enable" 
<TlT>"removal_rising" 
<TIT>"removal_f ailing" 
<TIT> " combinational " 

<TIT> " skew_rising" 
<TIT>"skew_f ailing " 
<TIT> "non_seq_hold_rising " 
<TIT> "non_seq_hold_f ailing" 
<TIT> "non_seq_setup_rising" 
<TIT>"non_seq_setup_f ailing " 
<T1T> "nochange_high_high" 
<TIT> "nochange_high_low" 
<TIT> "nochange_low__high" 
<TIT>"nochange_low_low" 
<TIT>"; " 

/* timing_sense */ 

<TIS > "pos i t i ve__unate " 
< T 1 S > " nega t i ve_una t e " 
<TIS>"non__unate" 
<TIS>"; " 



{ echo 



{ echo 
{ echo 



/* signal_type in test_cell 

< S IG__T> " t e s t__s can_in " 

< S IG__T> " t e s t_s can_in_inver t ed " 

< S IG_T > " t e s t_s can_ou t " 

< S IG_T > " t e s t_s c an_ou t _inve r t e d " 

< S IG_T> " t e s t_s can_enabl e " 

< S I G_T > " t e s t_s can_enabl e_i nve r t ed " 
<SIG T>"test scan clock" 



echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 

echo; 
echo; 
echo; 
echo; 
echo; 
echo; 
echo; 
echo; 
echo; 
echo; 
PREV 



PREV_ 
PREV_ 
PREV_ 
PREV_ 
PREV_ 
PREV_ 
PREV_ 
PREV_ 
PREV_ 
PREV__ 
PREV_ 
PREV_ 
PREV_ 
PREV_ 
PREV_ 

PREV_ 
PREV_ 
PREV__ 
PREV_ 
PREV_ 
PREV_ 
PREV_ 
PREV__ 
PREV_ 
PREV__ 
STATE; 



STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 

'state 

STATE ; 
STATE; 
STATE; 
STATE; 
STATE; 
STATE; 
STATE; 
STATE; 
STATE; 
STATE; 
RN(li 



RN{TIT 
RN(TIT 
RN(TIT 
RN(TIT 
RN(TIT 
RN{TIT 
RN(TIT 
RN(TIT 

rn(tit' 

RN{TIT 
RN(TIT 
RN(TIT 
RN(TIT* 
RN(TIT 
RN(TIT 

RN(TIT 
RN(TIT 

rn(tit' 

RN(TIT 
RN(TIT 
RN{TIT 
RN(TIT 
RN(T1T 
RN(TIT 

rn(tit" 

bctext [ 



_RE) 
_FE) 

'ps) 

]CL) 
^HR) 

[hp) 

[SR) 

]rr) 

_RF) 

]tSD) ; } 

_TSE) ; } 

_RMR) ; } 

"rMF) ; } 
]C); } 

_SKR) ; } 
_SKF) ; } 
_NSHR) ; 
NSHF) ; 
"nSSR) ; 
'nSSF) ; 
NCHH) ; 
NCHL) ; 
NCLH) ; 
NCLL) ; 
0]); } 



echo; PREV_STATE; RN(TIS_POS); 
echo; PREV_STATE; RN(TIS_NEG); 
PREV_STATE; RN(TIS_NON); } 
PREV_STATE; RN (libctext [0] ) ; } 



echo; PREV_STATE; RN(ST__TSI); } 

{ echo; PREV_STATE; RN(ST_TSII); 
echo; PREV_STATE; RN(ST_TSO); } 

echo; PREV_STATE; RN(ST_TSOI); 
PREV_STATE ; RN ( ST_TSE ) ; } 
PREV_STATE; RN(ST_TSEI); } 
PREV_STATE; RN(ST_TSC); } 



{ 

echo; 
echo; 
echo; 
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<SIG_T> " t est_scan_clock_a " 
<SIG_T>"test_scan_clock_b" 
<SIG_T>"test_clock" 
<SIG T>"/" 



{ echo; PREV_STATE; RN(ST_TSCA) 

{ echo; PREV_STATE; RN{ST_TSCB) 

{ echo; PREV_STATE; R]Sr(ST__TCLK) 

{ echo; PREV_STATE; RN ( libctext [ 0 ] ) ; 



<REV> ( [0-9. -/] + [a-zA-Z] ?) + 
copy_string (libctext) ; RN{REV_V) 
<REV>{ string} 

copy_string (libctext) ; RN(REV_V) 
<REV>{qstring} 

copy_string (libctext) ; RN(REV_V) 



} 



{ echo; PREV_STATE; libclval . string - 
{ echo; PREV_STATE; libclval . String = 
{ echo; PREV_STATE; libclval . string = 



<REV> " ; " 



/* 

{estring} 



{integer} 
RN(L_ESTRING) ; 



{real} 

RN(L_REAL); } 
{string} 



RN(L_DEF_BOOL) ; } 
RN (L_DEF_TEXT) ; } 



{nstring} 
RN(L_NSTRING) ; } 



{ echo; PREV_STATE; RN (libctext [0] ) ; 



{ if (yy_start i= (1+ 2*NAME) ) { 
REJECT; 

} 

else { 
echo ; 

libclval .string = copy_string (libctext) ; 
RN(L_ESTRING) ; 

} 

} 

{ echo; 

if (yy_start == (1+ 2*NAME)) { 

libclval. string = copy_s t ring (libctext) ; 

} 

else { 

libclval . int_val = atoi (libctext) ; RN(L_INT); 



} 



{ echo; libclval . real_val = atof (libctext) ; 



{ enum value_type vt; 
echo; 

libclval . string = copy_string (libctext ) ; 

if (libc_def_find(copy_string (libctext) ,&vt) ) { 
if (vt REAL_VT) { RN(L_DEF_REAL) ; } 

else if (vt BOOL_VT) { NEXT_STATE BOOL; 



else 



{ NEXT_STATE QSTR; 



} 

else 

} 

{ echo; libclval. string = copy_string (libctext) ; 



{ RN(L_STRING) ; } 



{}\ + \-\*/' l&\|\(\)" = ] { echo; RN(libctext[0]) ; } 

<<EOF>> { yyterminate 0 ; } 

{ echo; lex_error (libctext) ; } 
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%% 

/* */ 

void lex_next_QSTR_state (void) 
{ NEXT_STATE QSTR; } 

/* */ 

void lex_next_NAME_st ate (void) 
{ NEXT_STATE NAME; } 



void lex_next_SKIP_state (void) 
{ NEXT_STATE SKIP; } 

/* */ 

void lex_prev__state 0 
{ PREV_STATE; 

/* printfC yystart == %d\n" ,yy_start) ; */ 

} 

void lex_error( 
char *S) 

{ 

fprintf (stderr, "%s (%d) : ERROR: lex error near 
%s\n" , f ile_name, libc_lineno, S) ; 
libc_error_count++ ; 
if (libc_error_count > 10) 
exit (44) ; 

} 

void libcerror( 
char *S) 

{ 

fprintf (stderr, "%s (%d) : ERROR: near %s, 
%s\n" , f ile^name, libc_lineno, libc text , S) ; 
libc_error_count++ ; 
if (libc_error_count > 10) 
exit (44) ; 

} 

/* */ 

void libc_error( 
char *S) 

{ 

f print f (stderr, "%s (%d) : ERROR: %s\n" , f ile_name, libc_lineno, S) 
libc_error__count+-H ; 
if (libc_error_count > 10) 
exit (44) ; 

} 
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== */ 
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« 

111 

lU 
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a 
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#define LIBC_MEM 
#include "libc def.h" 



double atof{char *) ; 
public 

int libc_main{ 

int argc, 

char *argv[] ) 
{ int i, j , code := 0; 
char *s; 

char tmpFileName [256] ; /* 
char clf FileName [256] ; /* 
char tmpFileNamel [256] ; /* 
char clf FileNamel [256] ; /* 
char tmpFileName2 [256] ; /* 
char clf FileName2 [256] ; /* 
char inFileName [256] = 
int linear2TLU 0; 

FILE *xxx_clf =: NULL,*yyy_clf ,*yyy_con=NULL,*zzz_clf ; 



for XXX */ 
for XXX */ 
for yyy */ 
for yyy */ 
for Z2Z */ 
for zzz */ 



char conFileNameTmp [256] ; 
char conFileName [256] ; 

libc_version = 330; 



/* for yyy version 320 */ 
/* for yyy version 320 */ 



for (i=l;i<argc/i++) ( 
if (argv [i] [0] !=»-•) 

sprintf (inFileName, "%s" , argv [i] ) ; 
else { 

if (strcmp(argv[i] , "-linear2TLU") == 0 
linear 2 TLU = 1; 

else if (strcmp(argv[i] , "-3 .2") =:= 0) 
libc_version = 32 0; 

else if {strcmp (&argv[i] [1] , "o") o) 
char *str = NULL; 



1 + +; 

for {str=argv[i] ; (*str) !=' \0 ' ;str++) { 
if ({*str) == '/') 
break; 

} 

if ((*str) ]= '\0') { 

sprintf (tmpFileName, "%s_time . tmp" , argv [i] ) ; 
sprintf (tmpFileNamel, " %s_logic . tmp" , argv [i] ) ; 
sprintf {tmpFileName2, "%s jower . tmp" , argv [i] ) ; 
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} 

else { 

sprintf (tmpFileName, "%s_time. . tmp" , argv [i] ) ; 
sprintf (tmpFileNamel, "%s_logic. . tmp" , argv [i] ) ; 
sprintf (tmpFileName2, "%s_power. . tmp " , argv [i] ) ; 

sprintf {clfFileName, "%s . time" , argv [i] ) ; 

sprintf (elf FileNamel, ns . logic" , argv [i] ) ; 

sprintf (clf FileName2, "%s .power" , argv [i] ) ; 

if { (xxx_clf = fopen(tmpFileName, "w")) == NULL) { 

fprintf (stderr, "Could not open output file %s , \n" , argv [i] ) 

return (44) ; 

} 

if( (yyy_clf = f open (tmpFileNamel , "w")) == NULL) { 
fprintf (stderr, "Could not open output file %s . \n" , argv [i] ) 
return (44) ; 

} 

if ( (zzz_clf = fopen(tmpFileName2, "w")) == NULL) { 
fprintf (stderr, "Could not open output file %s . \n" , argv [i] ) 
return (44) ; 

} 
} 

else if (strcmp (&argv[i] [1] , "temp") ^= 0) { 
i++; 

libc_t_max = atof (argv [i] ) ; /*max*/ 
i++; 

libc_t_nom = atof (argv [i] ) ; /* nom */ 
i++; 

libc_t_min = atof (argv [i] ) ; /* min */ 
} 

else if (strcmp (&argv[i] [1] , "volt") == 0) { 

i++; /* WARNING: Notice reverse index convention! */ 

libc_v_max ^ atof (argv [i] ) ; /* max */ 

i++; 

libc_v_nom = atof (argv [i] ) ; /* nom */ 
i++; 

libc__v_min = atof (argv [i] ) ; /* min */ 

else if {strcmp(S:argv[i] [1] , "process") == 0) { 
i++; 

libc_p_max = atof (argv[i] ) ; 
i++; 

libc_p_nom = atof (argv [i] ) ; 
i++/ 

libc_p_min = atof (argv [i] ) ; 
} 

else if (strcmp(&argv[i] [1] , "facts") == 0) { 
i++; 

cap_scale = atof (argv [i] ) ; 
i++; 

resist_scale = atof (argv [i] ) ; 
i++; 

time_scale = atof (argv[i] ) ; 

} 

else if (strcmp (&argv[i] [1] , "power_facts") o) { 
i++; 

watt_scale = atof (argv [i] ) ; 
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1 + + ; 

joule_scale 

} 



atof (argv [i] ) ; 



if (libc_version < 330 ) { 

sprintf (conFileNameTmp, "%s_con" , tmpFileNamel) ; 
sprintf (conFileName, " %s_con" , clf FileNamel ) ; 
if( {yyy_con = f open (conFileNameTmp, "w")) === NULL) { 

fprintf {stderr, "Could not open output file %s . \n" , conFileNameTmp) ; 
return (44) ; 

} 

} 



if( (!xxx__clf) I 
printf ( "Usage : 
printf (" 
printf ( " 
nom min] \n" ) ; 
printf {" 
printf (" 
printf (" 
return (44) ; 

} 



(inFileName [0] == 'XO') || {argc <= 1) ) { 
%s -o output_file\n",argv[0] ) ; 
[-3.2]\n") ; 

[-temp max nom min] [-process max nom min] [-volt max 

[-facts cap_scale resist__scale time_scale] \n" ) ; 
[-power_f acts watt_scale joule_scale] \n" ) ; 
input__f ile\n") ; 



libc__erro recount = 0; 

f print f (stderr, "Parsing %s ... \n" , inFileName) ; 

if( code = parse_a_tlib_file (inFileName) 1| libc__error_count) { 
fprintf (stderr, "Error found, translation failed. \n"); 
code = 1; 

} 

if (icode) { 

if (tech_lib->delay_model UNKNOW_M) 
tec]i_lib->delay__model = GENER1C_CM0S; 
^ libc_gen_clf_main(xxx_clf ,yyy_clf ,yyy_con, Z2z_clf , tech_lib) ; 

f close (xxx_clf ) ; 
f close (yyy_clf) ; 
f close (yyy_con) ; 
f close (Z2Z_clf) ; 

if (linear2TLU) 

/* syLinear2TLU(tmpFileName, clfFileName) */ ; 
else { 

if (rename (tmpFileName, clfFileName) == -1) { 

fprintf (stderr, "Cannot create CLF file %s\n", clfFileName); 
return (45 ) ; 

} 

} 

if (rename (tmpFileNamel, clf FileNamel) -1) { 

fprintf (stderr, "Cannot create CLF file %s\n", clf FileNamel) ; 
return (4 5) ; 

} 

if (libc_version < 330) { 
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if (rename (conFileNameTmp, conFileName) -1) { 

fprintf (stderr, "Cannot create CON file %s\n" ^ conFileName) ; 
return (45) ; 

} 

} 

if (rename (tmpFileName2 , clf FileName2 ) -1) { 

f print f (stderr, "Cannot create CLF file %s\n", clfFileName2) ; 
return (45) ; 

} 

if (code) { 

unlink (clf FileName) ; 
unlink (clf FileNamel) ; 
unlink (clf FileName2) ; 
return (44) ; 

} 

return { 0 ) ; 



/* =======================================3=========== */ 
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#include <stdio.h> 
#include <assert.h> 
#include <stdlib . h> 
#include <ctype.h> 
#include <string.h> 
#include "libc_mem. h" 
#if DMP_MEM_ANY 

static int libc_mem_curr_size=0 ; 
static int libc_mem_peak__size=0 ; 
static int any_unit_rec_curr_msize=0 ; 
static int any_unit_rec_peak_msi2e=0 ; 
static int any_unit_rec_lcurr_msize-0 ; 
static int any_unit_rec_lpeak_msize=0 ; 
static int Iibc_name_list__rec_curr_msize=0 ; 
static int Iibc_name_list_rec_j)eak_msize=0 ; 
static int Iibc_name_list_rec_lcurr_msize=0 j 
static int libc_name_list_rec_lpeak_msi2e=0 j 
static int Iibc_name_list_list_curr_msize=0 ; 
static int Iibc_name_list_list_j}eak_msize=0 ; 
static int libc_name_list__list_lcurr_msize-0 ; 
static int 1 ibc_name_l i s t_l i s t_lpe ak_Tns i z e = 0 / 
static int libc_f Ioat_list_rec_curr_msize=0 ; 
static int libc_f Ioat_list_rec_peak__msize=0 ; 
static int libc_f Ioat_list__rec_lcurr_msize=0 ; 
static int libc_f Ioat_list__rec_lpeak_msize=0 ; 
static int libc_f Ioat_list_list__curr__msize=0 j 
static int libc_f Ioat_list_list_peak_msize=0 ; 
static int libc_f Ioat_list_list_lcurr_msize=0 ; 
static int libc_f Ioat_list_list_lpeak_msize=0 ; 
static int libc_def ine_rec_curr_msize=0 ; 
static int libc_def ine__rec_peak_msize=0 ; 
static int libc_def ine_rec_lcurr_msize=0 ; 
static int libc_def ine_rec_lpeak_msize=0 ; 
static int Iibc_cell_area_rec_curr_msize=0 ; 
static int libc_cell_area_rec j>eak__msize=0 ; 
static int Iibc_cell_area__rec_lcurr_msize=0 ; 
static int Iibc_cell_area_rec_lpeak__msize=0 ; 
static int libc_k_f actor_rec_curr_msize=0 ; 
static int libc_k__f actor_rec_peak__msize=0 ; 
static int libc_k_f actor_rec_lcurr_msize=0 ; 
static int libc_k_f actor_rec_lpeak_msize=0 ; 
static int Iibc_lib_rec_curr_msize=0 ; 
static int Iibc_lib_rec__peak__msize=0; 
static int Iibc_lib_rec_lcurr_msize=0 ; 
static int Iibc_lib_rec_lpeak__msize=0 / 
static int Iibc_lu_table__template_rec__curr_msize=0 ; 
static int libc_lu_table_template_rec jieak__msize=0 ; 
static int libc__lu_table_template_rec_lcurr__msize-0 ; 
static int Iibc_lu_table_template_rec__lpeak_msize=0 ; 
static int Iibc_oc_power__rail_rec_curr__msize=0 ; 
static int Iibc__oc__power_rail_rec_peak_msize=0 ; 
static int libc_oc_power_rail_rec_lcurr_Tnsize=0 ; 
static int Iibc_ocjpower_rail_rec_lpeak_msize-0 ; 
static int Iibc__operating_condition_rec_curr_msize=0 
static int Iibc_operating_condition_rec_j)eak_msize=0 
static int libc_operating_condition_rec_lcurr_msize= 
static int libc_operating_condition__rec_lpeak_msize= 
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static int Iibcjpower_supply_rec_curr_msize=0 ; 

static int libc j>ower_supply_rec _peak_msize=0 ; 

static int Iibc_power_supply_rec_lcurr_msize=0 ; 

static int Iibc_power__supply__rec_lpeak_msize=0 ; 

static int libc_timing_range_rec_curr_msi2e=:0 ; 

static int libc_timing_range_rec jieak_msize=0 ; 

static int libc_tiTning__range__rec_lcurr_msize=0 ; 

static int libc_timing_range_rec_lpeak_msi2e=0 ; 

static int Iibc__type_rec_curr_msize=0 ; 

static int Iibc_type_rec_peak__msize=0 ; 

static int libc_type_rec_lcurr_Tnsize^O ; 

static int Iibc_type_rec_lpeak_msize=0 ; 

static int libc_f anout_length__rec__curr_msize=0 ; 

static int libc__f anout_length_rec_jpeak_msize=0 ; 

static int libc_f anout_length_rec_lcurr_Tnsi2e=0 / 

static int libc_f anout_length_rec_lpeak__msize=0 ; 

static int libc_wire_load_rec_curr_Tnsize=0 ; 

static int Iibc_wire_load_recjpeak_msize=0 ; 

static int Iibc_wire_load__rec_lcurr_msize=0 ; 

static int Iibc_wire_load_rec_lpeak_msize=0 ; 

static int libc_wire_load__f rom_area_rec__curr_msize=0 ; 

static int libc_wire_load_f rom_area_rec j)eak__msize=0 ; 

static int libc_wire_load__f rom_area_rec_lcurr_msize=0 

static int libc_wire_load_f roTn_area_rec_lpeak_msize=0 

static int Iibc_wire_load_selection_rec_curr_msize=0 ; 

static int Iibc_wire_load__selection_rec_peak_msize=0 ; 

static int libc_wire_load__selection__rec_lcurr_Tnsize=0 
static int Iibc_wire_load__selection_rec_lpeak_rasize=0 
static int Iibc_cell_rec_curr__msize=0 ; 
static int Iibc_cell_rec_peak_tnsize=0; 
static int libc_cell_rec__lcurr_Tnsize=0 ; 
static int libc_cell_rec_lpeak_msi2e= ec- 
static int Iibc_memory_write_rec_curr_msize=0; 
static int Iibc_memory_write_rec_peak_msize=0 ; 
static int Iibc_memory__write_rec_lcurr_msize=0 / 
static int libc_memory_write_rec_lpeak__msi2e=0 ; 
static int Iibc_bool_opr_rec_curr_msize=0 ; 
static int Iibc_bool_opr_rec_jpeak_msize=0 / 
static int Iibc_bool__opr_rec_lcurr_msize=0 ; 
static int Iibc_bool_opr_rec_lpeak_msize=0 ; 
static int Iibc_pin_rec_curr_msize=0 ; 
static int libc_pin_rec__peak_Tnsize=0 ; 
static int Iibc_pin_rec_lcurr__msize=0 ; 
static int Iibc__pin_rec_lpeak_msize=0 ; 
static int libc_f f_latch_rec_curr__msize=0 ; 
static int libc_f f _latch__rec_peak_msize=0 ; 
static int libc_f f_latch_rec_lcurr_msize=0 ; 
static int libc_f f_latch_rec_lpeak_msize=0 ; 
static int Iibc_internal_power_curr_msize=0 ; 
static int libc_internal_power j)eak_msi2e=0 ; 
static int Iibc_internal__power__lcurr_msize=0 ; 
static int Iibc_internal_power__lpeak__msize=0 ; 
static int Iibc_leakage_power_curr_msize=0 ; 
static int Iibc_leakage_j)ower_jpeak_msize=0 ; 
static int Iibc_leakage_power_lcurr_msize=0 ; 
static int Iibc_leakage_power_lpeak_msize=0 ; 
static int Iibc_memory_rec_curr_msize=0 ; 
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static int Iibc_memory_rec_peak_msize=0 ; 

static int Iibc__memory__rec_lcurr_msize=0 ; 

static int Iibc_memory_rec_lpeak_msize=0 ; 

static int libcjpiece_value_rec_curr_msi2e=:0 ; 

static int Iibc_piece_value_rec_peak_msize=0 ; 

static int libc_j)iece_value__rec_lcurr_msi2e^0 ; 

static int libc_piece_value__rec_lpeak_Tnsize=0 ; 

static int libc_f loat_rec_curr_msize=0 ; 

static int libc_f loat_rec_peak_Tnsize=0 ; 

static int libc_f Ioat_rec_lcurr_msize=0 ; 

static int libc__f Ioat_rec_lpeak_msize=0 ; 

static int Iibc_table_val_rec_curr_msize=0 ; 

static int Iibc_table_val_rec_peak_msize=0 ; 

static int Iibc_table_val__rec_lcurr_msize=0 ; 

static int Iibc_table_val_rec_lpeak_msize=0 ; 

static int libc_timing_rec_curr_msize-0 ; 

static int Iibc_timing_rec_peak_msize=0 ; 

static int libc_timing_rec_lcurr_Tnsize=0 ; 

static int Iibc_timing_rec_lpeak__msize=0 ; 

static int libc_min j^ulse_width_rec_curr_msize-0 ; 

static int Iibc__min_pulse_width_rec_peak_msize=0 ; 

static int libc_min_jDulse_width__rec_lcurr_msize=0 ; 

static int libc_min_pulse_width_rec_lpeak_msi2e=0 ; 

static int Iibc_minimum_period_rec_curr__msize=0 ; 

static int Iibc_minimumjperiod_rec_peak__msize=0; 

static int libc_Tninimum_period__rec_lcurr_msize=0 ; 

static int libc_minimum_period_rec_lpeak_Tnsize = 0 / 

static int Iibc__routing_track_rec_curr_msize=0 ; 

static int libc_routing_track_rec_peak_Tnsize=0 ; 

static int Iibc_routing_track_rec_lcurr_msize=0 ; 

static int Iibc_routing_track_rec_lpeak__msize=0 ; 

static int Iibc__def_entry_rec_curr_msize=0 ; 

static int 1 ibc_de f _en t ry_r e c_pe ak_Tns i z e = 0 ; 

static int Iibc__def_entry_rec_lcurr_msize=0 ; 

static int libc_def_entry_rec_lpeak__msi2e=0 ; 

static int libc_def ine_value_rec_curr_msize=0 ; 

static int libc_def ine_value__rec__peak_msize=0 ; 

static int libc_def ine_value_rec_lcurr__msize=0 ; 

static int libc_def ine_value_rec__lpeak_msize=0 ; 

static int libc_glb_const_rec_curr_Tnsize=0 ; 

static int libc_glb_const_rec j)eak_msize=0 ; 

static int Iibc__glb_const_rec_lcurr_msize=:0 ; 

static int libc_glb_const_rec_lpeak_msize^O ; 

static int Iibc_def_table_rec_curr_msize=0 ; 

static int libc_def _table__rec_peak_msize=0 ; 

static int Iibc_def__table__rec_lcurr_msize=0 ; 

static int Iibc_def_table_rec_lpeak_msize=0 ; 
void reset_libc_mem_size 0 { 

any__uni t_r e c_l cu r r_ms i z e = any__un i t_r e c_lp e a k_m s i z e = 0 ; 

^^^^_list_rec_lcurr_msize=libc_name_list_rec_lpeak_msize=0 ; 
Ii^*^_^^i^s_list_list_lcurr_msize=libc_name_list_list_lpeak_msize=0 
libc_f loat_list_rec_lcurr_msize=libc_f Ioat_list_rec_lpeak_msize=0 
libc_f loat_list_list_lcurr_msize=libc_f loat__list_list_lpeak_msize 
libc_def ine_rec_lcurr_msize=:libc_def ine_rec_lpeak_msize=0; 
libc_cell_area_rec_lcurr_msize=libc_cell_area_rec_lpeak_msize=0; 
libc_k_f actor_rec_lcurr_msize=libc_k_f actor_rec_lpeak_msize=0; 
libc_lib_rec_lcurr_msize=libc__lib_rec_lpeak_msize=0 ; 
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libc_lu_table_template_rec_lcurr__msi2e=libc_lu_table_template_rec_lpeak_msize 
-0; 

Iibc__oc_power_rail_rec_lcurr_msize=:libc_ocjpower_rail_rec_lpeak_msize=0 ; 

libc_operating_condition_rec_lcurr_rnsize=libc_operating__condition_rec_lpeak_m 
size=0 ; 

libcjpower_supply_rec_lcurr_msi2e=libc_power_supply_rec__lpeak_msize=0 ; 
Iibc_timing_range_rec_lcurr_msize=libc_timing_range_rec_lpeak_msize=0; 
1 ibc_type_rec_l curr_ms i ze= 1 ibc_type_rec_lpeak_ms i ze= 0 ; 

libc_fanout_length_rec_lcurr__msi2e=libc_f anout_length__rec__lpeak_msize=0 ; 
1 ibc_wi r e_l oad_r e c_l cur r_ms i z e = 1 i bc_wi r e_l oad_r e c_lpeak_ms i z e = 0 ; 

libc_wire_load_f rom_area_rec__lcurr_msize==libc_wire_load_f rom_area_rec_lpeak_m 
size-0; ~ 

libc_wire_load_selection_rec_lcurr_msize=libc_wire_load_selection_rec_lpeak_m 
size=0; ~ 

Iibc__cell_rec_lcurr__msize=libc_cell_rec_lpeak_msize=0; 

libc_memory_write_rec_lcurr_msize=libc_memory_write_rec_lpeak_msi2e==0 ; 
Iibc_bool_opr__rec__lcurr_msize=libc_bool_opr_rec_lpeak_msize=0 ; 
libc_pin_rec_lcurr_msize=libc J^in_rec_lpeak_msize=0; 
libc_f f_latch_rec_lcurr_msize=libc_f f_latch_rec__lpeak_msize=0; 
Iibc_internal_j)ower_lcurr_msize=libc__internal_power_lpeak_msize=0; 
Iibc_leakagej>ower_lcurr_msize=libc_leakage_power_lpeak_msize=0/ 
libc_memory_rec_lcurr_msize=:libc_memory_rec_lpeak_Tnsize=0 ; 
Iibc_piece_value_rec_lcurr_msize:=libc_piece_value_rec_lpeak_msize==0 ; 
libc_f loat_rec_lcurr_Tnsize=libc__f loat_rec_lpeak_msize^O; 
libc_table_val_rec_lcurr__msize=libc_table__val_rec_lpeak_msize=0; 
libc_timing_rec_lcurr_Tnsize=libc_timing_rec_lpeak_msize=0; 

libc_minjpulse_width_rec_lcurr_msize=libc_Tnin_j)ulse_width_rec_lpeak_msize=0 ; 
libc_niinimum_j)eriod_rec_lcurr_msi2e=libc_minimumjperiod_rec_lpeak_msize=0; 
l^^^_^o^ting_track_rec_lcurr_msize=libc_routing_track_rec_lpeak_msi2e=0; 
Iibc_def_entry_rec_lcurr_msize=libc__def_entry_rec_lpeak_msize=0; 
libc_def ine_value_rec_lcurr_msize=libc_def ine_value_rec_lpeak_msize==0; 
li^c_9lb_const_rec_lcurr_msize=libc_glb_const_rec_lpeak_msize=0; 
libc_def_table rec Icurr Tnsize=libc def table rec Ipeak msize=0; 

} ~ " - - - » - 

void rpt_libc_mem_lsize {int peak) { 
dmp_clr__stati Stic (10 0) ; 

dTnp_ins_statistic ( "libc_mem" , "any_unit_rec" , peak?any__unit_rec_lcurr_msize : any 
_unit_rec_lpeak_msize) / 

dmp_ins_statistic ("libc_mem" , "libc_name_list_rec " , peak?libc_name_list_rec_lcu 
rr_msize : libc_name_list__rec_lpeak_msize) ; 

dmp_ins_statistic ( "libc_mem" , "libc_name_list_list " , peak?libc_name_list_Iist_l 
curr_msize : libc_name__list__list_lpeak_msi2e) ; ~ 

dTnp_ins_statistic ( "libc_mem" , "libc_f loat__list_rec" , peak?libc_f loat_list_rec_l 
curr_Tnsize:libc_f loat_list__rec_lpeak_msi2e) ; ~ 

dmp_ins_statistic ( "libc_meTn" , "libc_f loat_list_list " , peak?libc_f loat_list_list 
_lcurr_msize : libc_f loat_list_list_lpeak_msi2e) ; 
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dmp_ins_statistic ("libc_mem" , "libc_def ine_rec " , peak?libc_def ine_rec_lcurr msi 
ze : libc_def ine_rec_lpeak_msi2e) ; ~ 

dmp_ins_statistic ("libc_TneTn", " libc_cell_area_rec" , peak?libc_cell_area_rec__lcu 
rr_msize:libc_cell_area_rec__lpeak_msize) ; " 

dmp_ins_statistic ("libc^mem", "libc_k_f actor_rec" , peak?libc_k___f actor_rec_lcurr 
_msize : libc_k_f actor_rec_lpeak_msize) ; 

dmp_ins_statistic { "libc_mem" , "libc__lib_rec" , peak? libc_lib_rec__l cur r^msize : lib 
c_lib_rec_lpeak_msize) ; 

dmp_ins_statistic ("libc_mem" , "libc_lu_table__template_rec " , peak?libc_lu_table 
template_rec_lcurr_msize : libc_lu_table_template_rec_lpeak_msize) ; 

dmp_ins_statistic ("libc_mem", "libc_oc_power_rail_rec" , peak?libc_oc_power_rail 
__rec_lcurr_msize : libc_oc_power_rail_rec_lpeak_msize) ; 

dmp_ins_statistic {"libc_Tnem", "libc_operating_condition_rec%peak?libc_operati 
ng_condition_rec_lcurr_msize : libc_operating_condition_rec_lpeak__msize) ; 

dmp_ins_statistic { "libc_mem" , "libc_power_supply_rec" ,peak?libc_power_supply_r 
ec_lcurr_Tnsize : libc_power_supply_rec_lpeak_msize) ; ~ 

dmp_ins_statistic ( "libc_inem" , "libc_timing_range_rec" ,peak?libc_timing_range_r 
^c_lcurr__msize : libc_timing_range_rec_lpeak msize) ; 

dmp_ins_statistic ("libc^mem" , "libc_type_rec" ,peak?libc_type_rec_lcurr_msize : 1 
ibc_type_rec_lpeak_msize) ; 

dmp_ins_statistic ( "libc__mem" , "libc_fanout_length_rec" ,peak?libc_f anout_length 
_rec_lcurr_msize : libc_f anout_length_rec__lpeak_msize) ; 

dmp_ins_statistic ( "libc_mem" , "libc_wire_load_rec" ,peak?libc_wire_load rec leu 
rr_msize : libc_wire_load_rec_lpeak_msize) ; ~ ~ 

dinp_ins_statistic {"libc_mem" , "libc__wire_load_f rom_area__rec" ,peak?libc_wire_lo 
ad__f rom_area_rec_lcurr_msi2e : libc_wire_load_f rom_area_rec_lpeak_msize) / ~ 

dmp_ins_statistic ( "libc_mem" , "libc_wire_load_selection_rec" , peak? libc wire lo 
ad_selection_rec_lcurr_msize :libc_wire_load_selection_rec_lpeak_msizey; ~ 

dmp_ins_statistic ("libc^mem", "libc_cell_rec" , peak? libc_cell_rec_l cur r_msize : 1 
ibc_cell_rec_lpeak_msize) ; 

dmp_ins_statistic ( "libc_mem" , "libc_memory_write_rec" ,peak?libc_memory_write_r 
ec_lcurr_msize : libc_memory_write_rec_lpeak_msize) ; ~ 

dmp__ins__statistic { "libc_mem" , "libc_bool_opr__rec " , peak?libc_bool__opr_rec Icurr 
_msize : libc_bool_opr_rec_lpeak_msize) ; ~ " 

dTnp_ins_statistic ("libc^mem", "libc jin_rec'\ peak? libc_pin_rec_l curr_msize : lib 
c_pin_rec__lpeak_msize) / 

dmp_ins_statistic {"libc_mem" , "libc_f f_latch_rec " , peak?libc_f f__latch_rec_lcurr 
_msize : libc_f f_latch_rec_lpeak_msize) ; 
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dmp_ins_statistic {"libc__Tnem", " libc_internal_power peak?libc__internal _power 1 
curr_msize : libc_internal_power_lpeak__msize) ; ~ 

dmp_ins_statistic {"libc_mem", " libc_leakage_power " , peak?libc_leakage_power_lcu 
r r_ms ize:libc_le akage_po we r_lpe ak_Tns i z e ) ; 

dmp_ins_statistic ("libc_mem", "libc_memory_rec" ,peak?libc_memory_rec_lcurr_msi 
ze : libc_memory_rec_lpeak_msize) ; 

dTnp__ins_statistic {"libc_mem" , "libc_piece_value_rec" , peak?libc_j)iece__value_rec 
_lcurr_msize:libc_piece_value_rec_lpeak_msize) ; ~ 

dmp_ins_statistic ("libc_meTn", "libc_f loat_rec'\peak?libc_f loat_rec__lcurr_msize 
: libc_f loat__rec_lpeak_msize) ; 

dmp_ins_statistic ("libc_mem" , "libc_table_val_rec" ,peak?libc_table_val_rec_lcu 
rr_msize : libc_table_val_rec_lpeak_msize) ; ~ 

dmp_ins_statistic("libc_mem", "libc_timing_rec " , peak?libc_tiTning__rec_lcurr_msi 
ze : libc_timing_rec_lpeak_msize) / 

dmp__ins_statistic ("libc_mem", "libc_min_pulse_width_rec " , peak?libc_min_pulse w 
idth_rec_lcurr_msi2e : libc_minjpulse_width_rec_lpeak_msize) ; ~ 

dmp_ins_statistic ("libc_mem", "libc_Tninimum_period_rec'Speak?libc_minimum_peri 
o^_^^^_^^^^^_T^size : libc_minimuTn_period_rec Ipeak msize) ; 

dmp_ins_statistic("libc_meTn", "libc_routing_track_rec" , peak? libc_routing_t rack 
_rec_lcurr_msize : libc__routing_track_rec__lpeak_msize) ; 

^i^P_ins_statistic ( "libc_mem" , " libc_def_entry_rec" ,peak?libc_def_entry rec leu 
rr_msize:libc__def_entry_rec__lpeak_msize) ; ~ ~ ~ 

dmp_ins__statistic {"libc_mem", "libc_def ine_value_rec" ,peak?libc__def ine_value_r 
ec_lcurr_msize : libc_def ine_value_rec_lpeak_msize) ; ~ 

dmp_ins_statistic ( "libc_Tnem" , "libc__glb_const_rec" ,peak?libc_glb_const_rec_lcu 
rr_msize :libc_glb_const_rec_lpeak_msize) ; 

dmp_ins_statistic ("libc_mem", "libc_def_table_rec " , peak?libc_def_table_rec_lcu 
rr^rasize : libc_def_table_rec_lpeak_msize) ; ~ 
dmp__rpt_s tat i Stic (0) ; 

} 

void acc_libc_mem_size (int peak) { 

dmp_ins_statistic { "libc_mem" , "any_unit_rec" ,peak?any_unit_rec _j)eak_msize : any_ 
unit_rec_curr_msize) ; ~ 

dmp_ins_statistic ("libc_mem% " libc_name_list_r€c»' , peak?libc_naTne_list_rec_pea 
k_msi2e : libc__naTne_list_rec_curr_msi2e) ; 

dTnp_i ns_s tatistic("l ibc_mem " , " 1 ibc_name_l i s t_l ist",peak? 1 ib c_name_l i s t_l i s t_p 
eak_msize : libc_name_list_list_curr_msize) ; 

dmp_ins_statistic ("libc_mem", "libc_f loat_list_rec" ,peak?libc_f loat__list_rec_p 
eak_msize:libc float list rec curr msize); 
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dmp_ins_^statistic("libc_mem", "libc_f loat_list_lisf ' , peak?libc_f loat_list_list 
_j)eak_msize : libc_f loat_list_list_curr_msi2e) ; 

dmp_ins_statistic ("libc_mem", " libc__def ine_rec " , peak?libc_def ine_rec_peak_msiz 
e : libc_def ine__rec_curr_msize) ; ~ 

dmp_ins_statistic ("libc_mem", "libc_cell_area_rec" , peak?libc_cell_area__rec jpea 
k__msize : libc_cell_area_rec_curr_msize) ; 

dmp__ins_statistic ( " libc_mem" , " libc_k_f actor_rec " , peak? libc_k_f actor_rec_peak_ 
msize : libc_k_f actor_rec_curr_msi2e) ; 

dmp_ins_statistic ("libc_mem", "libc__lib_rec" , peak? libc_l ib_rec_peak_msi ze : libc 
_lib_rec_curr_msize) ; 

dTnp_ins_statistic ("libc_tnein»\ "libc_lu_table_template_rec" ,peak?libc_lu_table__ 
template_rec_peak_msize : libc_lu_table_template_rec_curr_msize) ; 

dmp_ins_statistic ( "libc_mem" , "libc_oc_power_rail_rec" ,peak?libc_oc _jpower_rail 
__rec__peak_Tnsize : libc_ocjpower_rail_rec__curr_msize) ; 

dmp_ins_statistic("libc__mein% "libc_operating_condition_rec" , peak?libc_operati 
ng_condition_rec_peak_msize : libc_operating_condition_rec_curr_msize) ; 

dmp_ins_statistic ( "libc_mem" , "libc_power_supply_rec" , peak?libc_power__supply_r 
ec_P^sk_msize : libc_power_supply_rec_curr_msize) ; 

dmp_ins_statistic(nibc_mem\ nibc_timing_range_rec\peak?libc_timing_ran 
ec_peak_msize : libc_timing_range_rec_curr_msize) ; 

dmp_ins_statistic("libc_mem", "libc_type_rec" ,peak?libc_type_rec _peak_msize : li 
bc_type_rec_curr_msize) ; 

dmp_ins_statistic ( "libc_mem" , "libc_f anout_length_rec'\peak?libc_f anout_length 
_rec_peak_msize : libc__f anout_length__rec_curr_msize) ; 

dmp_ins_statistic ( "libc_mem" , "libc_wire_load_rec " ,peak?libc_wire_load_rec_pea 
k_msi2e : libc_wire_load_rec__curr__msize) ; 

dmp_ins_statistic ( ■aibc_mem% nibc_wire_load_f rom_area_rec%peak?libc_wire_lo 
ad_f rom_area_rec_peak_msize : libc_wire_load_f rom_area_rec_curr_msize) / 

dmp_ins_statistic{"libc_mem" , "libc_wire_load_selection_rec " , peak?libc_wire lo 
ad_selection_rec_peak_msize : libc_wire_load_selection_rec_curr_msize) ; ~ 

dmp_ins_statistic("libc_mem\ nibc_cell_rec^peak?libc_cell_rec_J)eak_msize:li 
bc_cell_rec_curr__msi2e) ; 

dmp_ins_statistic ( "libc^mem" , "libc_memory_write_rec'\peak?libc_memory_write_r 
ec _peak_tnsize : libc_memory_write_rec_curr_msize) ; ~ 

dTnp_ins_statistic ( "libc_mem" , "libc_bool_opr_rec " , peak?libc_bool_opr_rec_j5eak_ 
msize : libc_bool_opr_rec_curr_msi2e) ; ~ 

dmp_ins_statistic ( "libc_mem" , "libc_pin_rec" , peak? libc jpin_rec_peak_msize : libc 
_pin_rec_curr_msize) ; 
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dmp_ins_statistic('aibc_mem\ nibc_ff_latch__rec%peak?libc_ff_latch_rec__peak_ 
msize : libc_f f_latch_rec_curr___msize) ; 

dnip_ins_statistic ("libc_mem", " libc_internaljpower" , peak?libc_internal _power_j) 
eak_msize : libc_internal_power_curr_msize) ; 

dmp_ins_statistic ("libc^mem" , ''libc__leakage_j)ower" , peak?libc_leakage_power_pea 
k_msize : libc_leakage_power_curr_msize) ; 

dmp_ins_statistic("libc__meni", "libc_memory_rec" ,peak?libc_memory_rec_peak_msi2 
e : libc_memory_rec_curr_msize) ; 

dmp_ins_statistic {"libc_mem" , " libc_piece_value_rec " , peak?libc_jpiece_value_rec 
_peak_msize : libc_piece_value_rec_curr_msi2e) ; 

dmp_ins_statistic("libc_mem% nibc_float_rec%peak?libc_float_rec_peak_msize: 
libc_f loat__rec__curr__msize) ; 

dmp_ins_statistic {"libc_mem" , "libc_table_val_rec" , peak?libc_table_val__rec_pea 
k_msize : libc_table_val_rec_curr_msize) ; 

dmp_ins_statistic (nibc__mem% nibc_timing_rec%peak?libc_timing_^^ 
e : libc_timing_rec_curr_msize) ; 

dmp__ins_statistic { "libc_mem" , "libc_min_j)ulse_width_rec" , peak?libc_min_j)ulse w 
idth_rec_peak_msize : libc_Tnin_j)ulse_width_rec_curr_msize) ; ~ 

dmp_ins_statistic ( "libc^mem" , " libc_Tninimum__jperiod_rec " , peak?libc_minimum_peri 
od_rec _peak_msize : libc_minimumjperiod_rec_curr_msize) ; 

dmp_ins_statistic ("libc_mem" , "libc_routing_track_rec" , peak? libc_routing_t rack 
_rec_peak_msize : libc_routing_track_rec_curr__msize) / ~ 

dmp_ins_statistic ( nibc_mem% nibc_def_entry_rec%peak?libc_def_entry__r^ 
k__msize : libc_def_entry_rec_curr_msi2e) ; 

dmp_ins_statistic ( "libc_mem" , "libc__def ine__value__rec" , peak?libc_def ine_value_r 
ec_peak_rasize : libc_def ine_value_rec_curr_msi2e) ; 

dmp__ins_statistic ( "libc_mem" , "libc__glb_const_rec'\peak?libc_glb_const_rec__pea 
k_msize : libc_glb_const__rec_curr_msize) ; 

dmp_ins_statistic('aibc_mem% 'aibc_def_table_rec^peak?libc_def_table_rec_pea 
k_msize : libc__def _table_rec_curr_msize) ; 

ttdefine dmp_libc_mem_size_inc (sz) \ 
libc__mem_curr_size += sz; \ 

if (1 ibc_mem_cur r_s i z e > 1 ibc_mem_jpeak_s i ze ) \ 

libc_mem_j)eak_size = libc_mem_curr_size ; 
#define dmp_libc_meTn_size_dec (sz) libc_mem_curr_size -= sz 
#define dmp_any_unit_rec_msize_inc (sz) \ 

any_unit_rec_lcurr_msize += sz; \ 

if (any_unit_rec_lcurr_msize>any_unit_rec_lpeak__msi2e) \ 
^^y-_^^it_rec_lpeak_msize = any_unit__rec_lcurr_msize; \ 
^^y_^3iit_rec__curr_msize += sz; \ 

if (any_unit_rec_curr_Tnsi2e>any_unit_rec_peak_msize) \ 
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any_unit_rec__peak__msize = any_unit_rec_curr_msize; 
#define dmp_any_unit_rec__msi2e_dec (sz) \ 

^^y_^^it_rec_curr_msize sz;\ 

any_unit__rec_lcurr_Tnsize -= sz 
struct any_unit__rec *new_any_unit_rec (void) 

{ struct any_unit_rec *p = (struct any_unit_rec *) get_mb_ptr (1) ; 
#if DMP__MEM__ANY 

dmp_libc_mem_size_inc ( 8 ) ; 

dmp__any_unit_rec_msize_inc (8) ; 
#endif 

return (p) ; 

} 

#define dmp_l ibc_naTne_l is t_r e c_msiz e_i nc (sz) \ 
libc_name_list_rec_lcurr_msize += sz; \ 

if {libc_naTne_list_rec__lcurr_msize>libc__name_list_rec_lpeak_msize) \ 
libc_name_list__rec__lpeak_msize = libc_name_list_rec_lcurr_msize; \ 
libc_name_list_rec_curr_msize += sz; \ 

if (1 ibc_name_l i s t_r e c_cur r_ms i z e > 1 ibc_name_l i s t_r e c_jp e ak_ms i ze ) \ 
libc_name_list_rec_peak_msize = libc_name__list_rec_curr_msize ; 
#define dmp_libc_name_list_rec_msize_dec (sz) \ 
libc_name__list_rec_curr_Tnsize sz;\ 
libc_name_list_rec_lcurr_msize sz 
struct libc_name__list_rec *new_libc_name_list_rec (void) 

{ struct libc_name_list_rec *p = (struct libc_naTne_list_rec *) get mb ptr(l) 
#if DMP_MEM_ANY ~ 

*^'^P_1 ibc_mem_s i z e_inc ( 8 ) ; 

'^i^P_lit)c_name_list_rec_msize_inc (8) ; 
#endif 

return (p) ; 

} 



#define dmp_libc_name_list_list_Tnsi2e_inc (sz) \ 
libc_name_list_list_lcurr_msize += sz; \ 

if (libc_name_list_list_lcurr_msize>libc_name_list_list_lpeak_msize) \ 
libc_name_list_list_lpeak_msize = libc_name_list_list_lcurr_msize ; \ 
libc_naTne__list_list_curr_msize += sz; \ ~ 
if (1 ibc_name_l i s t_l i s t_curr_ms i ze > 1 ibc__name_l i s t_l i s t_peak__ms i ze ) \ 
libc_name_list_list _peak_msize = libc_name_list_list_curr_msize ; 
#define dmp_libc_name_list_list_msize_dec (sz) \ 
libc_name__list_list_curr_msize -= S2;\ 
1 ibc_name_l i s t_l i s t_l cur r_ms i ze - = s z 
Struct libc_name_list_list *new_libc_name__list_list (void) 
{ struct libc_name_list_list *p = (struct libc_name_list_list *) 
get_mb_j)tr (2) ; 
#if Diy[P_MEM_ANY 

dmp__libc_mem_size_inc (12) ; 

dmp__libc_name_list_list_msize_inc (12) ; 
#endif 

return (p) ; 

} 



#define dmp_libc__f loat_list_rec_insize_inc (sz) \ 
libc_f loat_list__rec_lcurr_Tnsize += sz; \ 

if (libc_float_list_rec_lcurr__Tnsize>libc__f loat_list_rec_lpeak_msize) \ 
libc_f loat_list_rec_lpeak_msize = libc_f loat_list_rec_lcurr_msize; \ 
libc_f loat_list_rec_curr_msize += sz; \ 
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if (libc_float_list_rec__curr_msize>libc__f loat_list_rec_peak_msize) \ 
libc_f loat_list_rec _peak_msize = libc__f loat_list_rec_curr_msize; 
#define dmp__libc_float_list_rec_msize_dec (sz) \ 
libc__f loat_list_rec__curr_msi2e -= sz;\ 
libc_f loat_list_rec_lcurr_msi2e -= sz 
struct libc_float_list_rec *new_libc_f loat_list_rec (void) 
{ struct libc_float__list_rec *p = {struct libc_f loat_list rec *) 
get__TT±i__ptr (1) ; ~ 
#if DMP_MEM_ANY 

dmp_libc_mem_size_inc (8) ; 

dmp_libc_f loat__list_rec_msi2e_inc (8) ; 
#endif 

return (p) ; 

} 

#define dmp_libc_f loat_list_list_msize_inc (sz) \ 
libc_f loat_list_list_lcurr_msize sz; \ 

if (libc_float_list_list_lcurr_msi2e>libc_float_list_list_lpeak_msi2e) \ 
libc_float_list_list_lpeak_msi2e = libc_f loat__list_list_lcurr_msi2e ; \ 
libc_f loat_list_list_curr_msi2e +~ sz; \ 

if (libc_float_list_list_curr_msize>libc_float_list_list_peak__msize) \ 
libc_float__list_listjeak__msi2e = libc_f loat_list_list__curr msize; 
#define dmp_libc_f loat_list_list_msize_dec (sz) \ " 
libc_f loat_list_list__curr_msize -= sz;\ 
libc_f loat_list_list_lcurr_msi2e -= sz 
struct libc__float__list_list *new_libc_f loat_list_list (void) 
{ struct libc_float_list_list *p = (struct libc_float list list *) 
get_mb_ptr (1) ; ~ 
#if DMP_MEM_ANY 

dmp_libc_mem_si2e_inc (8) ; 

dmp_libc_f loat_list_list_msize_inc (8) ; 
#endif 

return (p) ; 

} 

#define dmp_libc_def ine_rec__msize_inc (sz) \ 
libc__def ine_rec_lcurr_msize += sz; \ 

if {libc_define_rec_lcurr_msi2e>libc_define_rec_lpeak_msize) \ 
libc_define_rec_lpeak_msize = libc_def ine_rec_lcurr_msize; \ 
libc_def ine_rec__curr_msize += sz; \ 

if (libc_define_rec_curr_msize>libc_def ine_rec_peak_msi2e) \ 
libc_define_rec_peak_msize = libc_def ine_rec_curr_msi2e; 
#define dmp_libc_def ine_rec_msize_dec (sz) \ 
libc_def ine_rec_curr_msize -= sz;\ 
libc_def ine_rec_lcurr_msize -= sz 
struct libc_def ine_rec *new_libc_def ine__rec (void) 

{ struct libc_define__rec *p = (struct libc define rec *) get mb ptr(3)- 
#if DMP_MEM_ANY ~ _ ^ 

t^"^P_libc_meTn_size_inc (16) ; 
dmp_libc_def ine__rec_msize_inc (16) ; 
#endif 

return (p) ; 

} 

#define dmp_libc_cell__area_rec_msize_inc (sz) \ 
libc_cell_area_rec_lcurr_msize += sz; \ 

if (libc_cell__area_rec_lcurr_msize>libc_cell_area_rec_lpeak_msize) \ 
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libc_cell_area_rec_lpeak_msize = libc_cell_area_rec_lcurr__msize ; \ 
libc_cell_area_rec_curr__msi2e += sz; \ 

if (libc_cell__area_rec_curr_msize>libc_cell_area_rec_j)eak_msize) \ 
libc_cell__area_rec_peak_msi2e = libc_cell_area_rec_curr_msize; 
#define dmp_libc_cell_area_rec_msize_dec (sz) \ 
^i^C-_cell_area_rec_curr_msize -= S2;\ 
libc_cell_area__rec_lcurr_msize -= sz 
struct libc_cell_area_rec *new_libc_cell_area_rec (void) 

{ struct libc_cell_area_rec *p =: (struct libc cell area rec *) get mb ptr(2) 
#if DMP_MEM_ANY ~ ~ ~ 3- _ ^ / 

dmp_libc_mem_size_inc (12) ; 

^^P_-lit>c_cell_area_rec_msize_inc (12) ; 
#endif 

return (p) ; 

} 

#define dTnp_libc_k_f actor_rec_rasize_inc (sz) \ 
libc__k_f actor_rec_lcurr_msize -f-= sz; \ 

if (libc_k_factor_rec_lcurr_msize>libc_k_factor_rec__lpeak_msize) \ 
libc_k_factor_rec_lpeak_msize = libc_k_f actor_rec_lcurr_msize ; \ 
libc_k_f actor_rec_curr_msize += sz; \ 

if (libc_k_factor_rec_curr_msize>libc_k_factor_rec_peak_msize) \ 
libc_k_factor_rec__peak_Tnsize = libc_k_f actor__rec_curr_^nsi2e; 
#define dmp_libc_k_factor_rec_msize__dec (sz) \ 
libc_k_f actor_rec_curr__msize -= sz;\ 
libc_k_f actor_rec_lcurr_Tnsize -= sz 
struct libc_k_factor_rec *new_libc_k_f actor_rec (void) 

{ struct libc_k_factor_rec *p = (struct libc k factor rec *) qet mb Dtr(29)- 
#if DMP__MEM_ANY ~ ~ ™ _^ ^ y . 

dmp_libc_mem_size_inc (548) ; 
dmp_libc_k_f actor_rec_msize_inc (548) ; 
#endif 

return (p) ; 

} 

#define dTnp_libc_lib__rec__msi2e_inc (sz) \ 
libc_lib_rec_lcurr_msize += sz; \ 

if (1 ibc_l ib__r ec_l curr_ms i 2e > 1 ibc_l ib_re c_lpeak_ms i 2 e ) \ 
libc_lib_rec_lpeak_Tnsize = libc_lib_rec_lcurr_msi2e ; \ 
libc_lib_rec_curr_msize += sz; \ 

if (libc_lib_rec_curr_msi2e>libc_lib_rec_peak_msize) \ 
libc_lib_rec _peak_msize = libc_lib_rec_curr_msize/ 
#define dmp_libc_lib_rec_msi2e_dec (s2) \ 
libc_lib_rec_curr_msi2e ~= S2;\ 
libc_lib__rec_lcurr_msize sz 
struct libc_lib_rec *new_libc_lib_rec (void) 

{ struct libc_lib_rec *p = (struct libc_lib_rec *) get mb ptr(28)- 
#if DiyiP_MEM_AUY ~ 

dmp_libc_Tnem_size_inc (3 92 ) ; 

dmp_libc_lib_rec_msi2e_inc (392) ; 
#endif 

return (p) ; 

} 

ttdefine dmp_libc_lu_table_template_rec_msize_inc (sz) \ 
libc_lu_table_teraplate_rec_lcurr_msize += sz; \ 
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(libc_lu_table_template_rec__lcurr_msize>libc_lu_table_template_rec_lpeak_innsiz 
e) \ 

libc_lu_table_template_rec_lpeak__msize = 
libc_lu_table_template_rec_lcurr_msize ; \ 

libc_lu_table_template_rec_curr__msize += sz; \ 
if 

{libc_lu_table_teTnplate_rec_curr_msize>libc_lu_table_template_rec_jpeak_Tnsize) 

\ 

lifoc_l\i_table_template_rec_peak_Tnsize = 
libc_lu_table_template_rec_curr_msize; 
#def ine dmp_libc_lu_table_template_rec_msize__dec (sz) \ 

libc_lu_table_template_rec_curr_msize -= sz;\ 

libc_lu_table_template_rec_lcurr_msize -= sz 
struct libc_lu_table_template__rec *new__libc_lu_table_template_rec (void) 
{ struct libc_lu_table_template__rec *p = (struct libc_lu_table_template__rec 
*) get_mb_ptr (7) ; 
#if DMP__iyiEM_ANY 

dmp_libc_mem_size_inc (32 ) ; 

dmp_libc_lu_table_template_rec_msize_inc (32) ; 
#endif 

return (p) ; 

} 

#define dmp_libc_oc_power_rail_rec_Tnsize_inc (sz) \ 
libc_oc_power_rail_rec_lcurr__msize += sz; \ 
if 

(libc_ocjpower_rail_rec_lcurr_insize>libc_oc_power_rail_rec_lpeak_tnsize) \ 

libc_oc^ower_rail_rec_lpeak__msize = libc_oc_power_rail_rec_lcurr_msize; \ 
libc_oc_power_rail_rec_curr_msize += sz; \ 

if (libc_oc_power_rail_rec_curr_msize>libc__oc_power_rail_rec_peak__msize) 

\ 

libc_ocj>ower_rail_rec_peak__msize = libc_oc_power__rail_rec_curr__msize; 
#define dmp_libc_ocjpower_rail_rec_msize_dec (sz) \ 
libc_oc_power_rail_rec_curr__msize -= sz;\ 
libc_oc_power_rail_rec_lcurr_msize -= sz 
struct libc__oc_power_rail_rec *riew_libc_oc_power_rail_rec (void) 
{ struct libc_ocjpower_rail_rec *p = (struct libc_oc_power_rail_rec *) 
get_mb__ptr (2) ; 
#if DiyiP_MEM_ANY 

dTnp__libc_mem_size_inc ( 12 ) ; 
dTnp_libc_oc_power_rail_rec_msize__inc (12) ; 
#endif 

return (p) ; 

} 

#def ine dmp_libc_operating_condition_rec_msize_inc (sz) \ 
libc_operating_condition_rec_Icurr_msize += sz; \ 

if 

(libc_operating__condition_rec_lcurr__msize>libc_operating_condition_rec_lpeak_ 
ms i z e ) \ 

libc__operating_condition_rec_lpeak_msize = 
libc_operating_condition_rec_lcurr_msize; \ 

libc_operating_condition_rec_curr_msize += sz; \ 
if 

(libc_operating_condition__rec_curr_msize>libc__operating_condition_rec_peak_ms 
ize) \ 
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libc_operating_condition_rec_peak_msize =^ 
1 ibc_operat ing_condi t ion_rec_curr_Tns i ze ; 

#def ine dmp_libc_operating__condit ion_rec__msi2e_dec (sz) \ 
libc_operating_condition_rec_curr_msize -= sz;\ 
libc_operating_condition_rec_lcurr_msize sz 
struct libc_operating_condition_rec *new__libc_operating_condition_rec (void) 
{ struct libc_operating__condition_rec *p = (struct 
libc_operating__condition__rec *) get_mb_ptr (6) ; 
#if DMP_MEM__ANY 

dmp_libc_mem_size_inc (2 8) ; 

dTnp_libc_operating_condition_rec msize inc(28)- 
#endif 

return (p) ; 

} 

#define dmp_libc_jpower_supply_rec_msize_inc (sz) \ 

libc_power_supply_rec_lcurr_msize += sz; \ 
^ if (libc_power__supply_rec_lcurr_msize>libc_power_supply_rec_lpeak_msize) 

libc_power_supply_rec_lpeak__msize = libc_power_supply_rec_lcurr msize; \ 
libc_power_supply__rec_curr_Tnsize sz; \ 

if (libc_power_supply_rec_curr_msize>libc_power_supply_rec _peak_msize) \ 
libc_power_supply_rec_peak_msize - libc_power__supply_rec_curr_msize ; 
#define dmp_libc_power_supply_rec_msize__dec (sz) \ 
libcjiower_supply_rec__curr_msize -= sz;\ 
libc_power_supply_rec_lcurr_msize -= sz 
struct libc_power_supply_rec *new_libc^ower_supply_rec (void) 
{ struct libcj>ower_supply_rec *p = (struct libc power supply rec *) 
get_mb__ptr(3) ; - ^_ 

#if DMP_MEM_ANY 

dmp_libc_mem_size_inc (16) ; 

dmp_libc_power_supply_rec__msize inc(16) ; 
#endif 

return (p) ; 

) 

#define dmp_libc_timing_range_rec_msize_inc (sz) \ 

libc_timing_range_rec_lcurr_msize += sz; \ 
^ if (libc_tiTning_range_rec_lcurr_msi2e>libc_timing_range_rec__lpeak_msize) 

libc_timing_range__rec_lpeak_msi2e = libc_timing_range_rec_lcurr__insize ; \ 
l^^c„timing_range_rec_curr_msi2e += sz; \ 

if (libc_timing__range_rec_curr_msize>libc_timing_range_rec_j>eak_Tnsize) \ 
libc_timing_range_recjeak_msize = libc_timing_range_rec_curr__msi2e; 
#define dmp_libc_timing_range_rec__msi2e_dec (sz) \ 
libc_timing__range_rec_curr_msize -= sz;\ 
libc_timing_range_rec_lcurr__msize -= sz 
struct libc_timing_range_rec *new_libc_timing_range_rec (void) 
{ struct libc_timing_range_rec *p = (struct libc timing ranqe rec *) 
get_mb_ptr (3) ; " - ~ 

#if DMP_MEM_AWY 

dmp_libc_mem_size_inc (16) ; 

dmp__libc_timing_range_rec_msize_inc (16) ; 
#endif 

return (p) ; 

} 
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#define dmp__libc_type_rec_msize_inc (sz) \ 
libc_type_rec_lcurr_msize += sz; \ 

if (libc_type__rec_lcurr_msize>libc_type_rec_lpeak_msize) \ 
libc_type_rec_lpeak_msize = libc_type_rec_lcurr_msize ; \ 
libc_type_rec__curr_msize += sz; \ 

if (libc_type_rec_curr_msize>libc_type_recjpeak_msize) \ 
libc_type_recjpeak_msize = libc_type_rec_curr_msize; 
#define dmp__libc_type_rec_msize_dec (sz) \ 
libc_type_rec_curr_msize -= sz;\ 
libc_type__rec_lcurr_Tnsize -= sz 
struct libc_tYpe_rec *new_libc_type_rec (void) 

{ struct libc_type_rec *p = (struct libc_type_rec *) get mb ptr(5); 
#if DMP__MEM_ANY ~ 
dmp_libc_meTn_size__inc (24) ; 

dmp_libc_type_rec_msize__inc (24) ; 
#endif 

return (p) ; 

} 

#define dmp_libc_f anout_length_rec_msize_inc (sz) \ 
libc__f anout_length_rec_lcurr_msize += sz • \ 
if 

{libc_fanout_length_rec_lcurr_msize>libc_fanout_length_rec_lpeak_msize) \ 

lrbc_fanout_length_rec_lpeak_Tnsize = libc__f anout_length_rec_lcurr msize;\ 
libc_f anout_length_rec_curr_msize += sz; \ - ' 

^ if (libc_fanout_length_rec_curr_msize>libc_fanout_length_recj)eak_msize) 

libc_fanout_length_recjpeak_msize = libc_f anout_length_rec_curr msize; 
#define dmp_libc_f anout_length_rec_msi2e_dec (sz) \ 
libc_fanout_length__rec__curr_msize -= sz;\ 
libc_fanout_length_rec_lcurr__msize -= sz 
struct libc_f anout_length_rec *new_libc_f anout_length_rec (void) 
{ struct libc_fanout_length_rec *p = (struct libc_fanout length rec *) 
get__mb_jptr (8) ; ~ ~ 

#if DMP_MEM__ANY 

dmp_libc_meTn_si2e_inc (36) ; 

dmp_libc_fanout_length_rec_msize inc (36) ; 
#endif 

return (p) ; 

} 

#define dtnp_libc_wire_load_rec__msize_inc (sz) \ 
libc_wire_load_rec_lcurr_msi2e += sz; \ 

if (libc_wire_load_rec_lcurr_msize>libc_wire_load__rec_lpeak_msize) \ 
libc_wire_load_rec_lpeak_msize = libc_wire_load_rec_lcurr__msi2e ; \ 
libc_wire_load_rec__curr_msize += sz; \ 

if (libc_wire_load_rec_curr_msi2e>libc_wire_load_recj)eak_Tnsize) \ 
libc_wire_load_recjeak_msize = libc_wire__load_rec_curr_msize; 
#define dmp_libc_wire_load__rec_msize_dec (sz) \ 
^^^*^_^^^^_ioa<^_3rec_curr_msize -= sz ; \ 
libc_wire_load__rec_lcurr_msi2e -= sz 
struct libc_wire_load_rec *new_libc_wire_load_rec (void) 

{ struct libc_wire_load_rec *p = (struct libc wire load rec *) get mb ptr(6)- 
#if DMP_MEM_ANY " ~ ~ ^ _ \ / ^ 

dmp_libc_meTn_size_inc (28) ; 

dmp__libc_wire_load_rec_msi2e_inc (28) ; 
#endif 
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return (p) ; 

} 

#def ine dmp__libc_wire_load__f rom_area_rec__msize_inc (sz) \ 
libc_wire_load_f rom_area_rec_lcurr_msize += sz; \ 

if 

(libc_wire_load_from_area_rec_lcurr_msize>libc_wire_load_from area rec Ipeak 
msize) \ — — _ _ 

iii>c__wire__load_f rom_area_rec_lpeak_msize = 
1 ibc_wi re_l oad__f r om__ar ea_r e c_l curr_ms i z e ; \ 

libc_wire_load_f rom_area_rec_curr_msize sz; \ 
if 

(libc_wire_load_froTn_area_rec_curr_msi2e>libc_wire_load_from area rec peak ms 
ize) \ ~ - -jr _ 

libc_wire_load_f rom_area_rec_peak_msize = 
lii>c_wire_load__f rom_area_rec_curr_msi2e; 
#def ine dmp_libc_wire_load__from_area__rec_msize_dec (sz) \ 

libc_wire_load_froTn_area_rec_curr_msize -= sz;\ 

libc_wire__load__from_area_rec_lcurr_msize -= sz 
struct libc_wire_load_f rom_area_rec *new_libc_wire_load_f rom_area_rec (void) 
{ struct libc_wire_load_f rom_area_rec *p := (struct 
libc_wire_load_f rom_area_rec *) get_mbj)tr (3 ) ; 
#if DMP_MEM_ANY 

dmp__libc_mem_size_inc (16) ; 

dmp_libc_wire_load_from__area_rec_msize inc(16) ; 
#endif 

return (p) ; 

} 

#def ine dmp_libc_wire_load_selection_rec_msize_inc (sz) \ 
libc__wire_load_selection_rec_lcurr_msi2e +=: sz; \ 
if 

(libc_wire__load_selection_rec_lcurr_msize>libc_wire_load_selection rec Ipeak 
msize) \ _ _ jr- „ 

libc_wire_load_selection_rec_lpeak_msize = 

libc_wire_load_selection_rec_lcurr_msize;\ 

libc_wire__load_selection_rec_curr_msize += sz; \ 
if 

(libc_wire_load_selection_rec_curr_msize>libc_wire_load selection rec peak ms 
ize) \ — — _ 

libc_wire_load_selection_rec_j)eak_msize = 
libc__wire_load_selection_rec_curr_msize; 

#def ine dmp_libc_wire_load_selection_rec_msi2e_dec (sz) \ 

libc_wire_load_selection_rec_curr_msize S2;\ 

libc_wire_load_selection_rec_lcurr_msize -= sz 
struct libc_wire__load_selection_rec *new_libc_wire_load__selection_rec (void) 
{ struct libc_wire_load_selection_rec *p = (struct 
libc_wire__load_selection__rec *) get_mb_ptr (2) ; 
#if DMP_MEM_ANY 

dmp_libc_mem_size_inc (12) ; 

dmp_libc_wire_load_selection_rec_msize_inc (12) • 
#endif 

return (p) ; 

} 

#define dmp_libc_cell_rec_msize_inc (sz) \ 
libc_cell_rec_lcurr_msize += sz; \ 
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if (libc_cell_rec_lcurr_msi2e>libc_cell_rec_lpeak_msize) \ 
libc_cell_rec_lpeak__msi2e = libc_cell_rec_lcurr_msize; \ 
libc_cell_rec_curr_msi2e += sz; \ 

if (libc__cell_rec_curr_msi2e>libc_cell_recj)eak_msize) \ 
libc_cell_rec_peak_msi2e ~ libc_cell_rec_curr_msi2e; 
#define dmp_libc_cell_rec_Tnsize_dec (sz) \ 
libc_cell_rec_curr__msi2e -= sz;\ 
libc_cell_rec_lcurr_msi2e -= sz 
struct libc_cell_rec *new_libc_cell_rec (void) 

{ struct libc_cell_rec *p = (struct libc_cell_rec *) get_mb_ptr (23 ) ; 
#if DMP_MEM_ANY 

dmp_libc_mem_si2e_inc (132) ; 

dmp_libc_cell_rec_msize_inc (132) ; 
#endif 

return (p) ; 

} 

#define dmp_libc_memory_write_rec_msi2e_inc (sz) \ 
libc_memory_write_rec_lcurr_msize += sz; \ 

if (libc_memory_write_rec_lcurr_msize>libc_memory_write_rec_lpeak__msi2e) 

\ 

libc_memory_write_rec_lpeak__msi2e = libc_memory_write_rec_lcurr__msi2e; \ 
libc_memory_write_rec__curr_msize += sz; \ 

if (libc_memory_write_rec_curr_msize>libc_Tneinory_write_rec_peak_msize) \ 
libc_memory_write_recjpeak__msize = libc_Tnemory_write_rec_curr_msize; 
#define dmp__libc___memory_write_rec_msi2e_dec (sz) \ 
libc_meTnory_'write_rec_curr_msize -= sz/\ 
libc_memory_write_rec_Icurr_i:nsi2e ~= sz 
struct libc_memory_write_rec *new_libc_memory_write_rec (void) 
{ struct libc_memory_write__rec *p = (struct libc_meniory_write_rec *) 
get_mb_ptr (2) ; 
#if DMP_MEM_ANY 

dinp_libc_mem_size_inc (12) ; 
dinp_libc_memory__write_rec_msi2e_inc (12) ; 
#endif 

return (p) ; 

) 

#define dmp_libc_bool_opr_rec_msize__inc (sz) \ 
libc_bool_opr__rec_lcurr_msi2e += sz; \ 

if (1 ibc_boo l_opr_rec_l curr_ms i ze > 1 ibc_bool_opr_r e c_lpeak_ms i z e ) \ 
libc_bool_opr_rec_lpeak_msi2e = libc_bool_opr_rec_lcurr_msize; \ 
libc_bool_opr_rec_curr_msize sz; \ 

if (libc_bool_opr_rec_curr_msize>libc_bool_opr_rec_peak_Tnsize) \ 
libc_bool_opr_rec_j>eak_msize = libc_bool_opr__rec_curr_Tnsize; 
#define dmp_libc_bool_opr_rec_Tnsize_dec (sz) \ 
1 ibc_bool_opr__rec__curr_ms i ze - = s z ; \ 
libc_bool__opr_rec_lcurr_msi2e -= sz 
struct libc__bool__opr_rec *new__libc_bool_opr_rec (void) 

{ struct libc_bool_opr_rec *p = (struct libc__bool_opr_rec *) get_mb_jptr (3) ; 
#if DMP_MEM_ANY 

dmp_libc_mem_size__inc (16) ; 

dmp_libc_bool_opr_rec_msi2e_inc (16) ; 
#endif 

return (p) ; 

} 
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#define dmp_libc_pin__rec_msize_inc { sz ) \ 
libc_pin_rec_lcurr__msize sz; \ 

if (libc_pin_rec_lcurr_msize>libc_pin_rec_lpeak__Tnsize) \ 
libc_pin_rec_lpeak_msize = libcjpin_rec_lcurr_msize; \ 
libc__pin_rec__curr_msi2e += sz; \ 

if {libc_pin_rec_curr_msize>libc_pin_recjpeak_msi2e) \ 
libc_pin_recjpeak_msize = libcjpin_rec_curr_msize; 
#define dmp_libc_pin_rec_msize_dec (sz) \ 
libc__pin_rec_curr__msize -= sz;\ 
libc j>in_rec_lcurr_msi2e -= sz 
struct libc_pin_rec *new_libc_pin_rec (void) 

{ struct libcjpin_rec *p = (struct libc_j)in_rec *) get mb ptr(27)- 
#if DMP_MEM_ANY ~ 

dmp_libc_mem_si2e__inc (276) ; 

dmp_libc_pin_rec_msize_inc (2 76) ; 
ttendif 

return (p) ; 

} 

#define dmp_libc_f f_latch_rec_msi2e_inc (sz) \ 
libc_f f_latch_rec__lcurr_msize += sz; \ 

if (libc__f f_latch__rec_lcurr_msize>libc_ff_latch_rec_lpeak_msize) \ 
libc_ff_latch_rec_lpeak_msi2e = libc_f f_latch_rec__lcurr_msize; \ 
libc_f f_latch__rec__curr_rasize += sz; \ 

if (libc_ff_latch_rec_curr_msize>libc_ff_latch_rec_peak_msize) \ 
libc_ff_latch_rec_peak_msize = libc_f f_latch_rec_curr__msize; 
#define dmp_libc_f f_latch__rec_msize_dec (s2) \ 
libc_f f_latch_rec_curr_msi2e -= S2;\ 
libc_f f_latch_rec_lcurr_msize -= sz 
struct libc_f f_latch__rec *new_libc__f f_latch_rec (void) 

{ struct libc_ff_latch_rec *p = (struct libc_f f_latch rec *) get mb ptr(15) 
#if DMP_MEM_ANY ~ ~ 

dmp_libc_Tnem_si2e__inc (64) ; 

dmp_libc_f f_latch_rec_msize_inc (64) ; 
ttendif 

return (p) / 

} 

Sdefine dmp_libc_internal_jpower_msize_inc (sz) \ 
libc_internal_power_lcurr_msize += sz; \ 

if (libc_internal_power_lcurr_msize>libc_internal_power_lpeak_msize) \ 
libc_internal_power_lpeak_msize = libc_internal_power__lcurr__msi2e; \ 
libc_internal_power_curr__msi2e += sz; \ 

if (libc_internal_power_curr__msize>libc_internal_power_peak_msize) \ 
libc_internal_jpower_peak_msize = libc__internal_power_curr__msize; 
#define dmp_libc_internal_power_msize_dec (sz) \ 
libc_internal__power_curr_msize sz;\ 
libc_internal_power_lcurr_msize sz 
struct libc__internal_power *new_libc_internal_power (void) 
{ struct libc__internal_power *p = (struct libc_internal_power *) 
get_mb_ptr (9) ; 
#if DMP_MEM_ANY 

dmp__libc_mem_si2e_inc (40) ; 

dmp_libc_internal_power_msize_inc (4 0) ; 
#endif 

return (p) ; 

} 
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#define dmp_libc_leakagej>ower_msize_inc (sz ) \ 
libc_leakagej)ower_lcurr_msi2e += sz; \ 

if {libc_leakage_power_lcurr_msize>libc_leakage_power_lpeak_msize) \ 
libc_leakage _power_lpeak_msize = libc_leakage_power_lcurr_msi2e ; \ 
libc_leakage_power__curr_msize += sz; \ 

if (libc_leakage _power_curr_msize>libc_leakage__power_peak_msi2e) \ 
libc_leakage jpower_peak_msi2e = libc_leakagejpower__curr_msize; 
#define dTnp_libc_leakage_power_msize_dec (sz) \ 
libc_leakage_jpower_curr_msize -= sz;\ 
libc_leakage_power_lcurr_msize -= sz 
struct libc_leakage_jpower *new_libc_leakage_power (void) 

{ struct libc_leakage_power *p = (struct libc_leakage_power *) get mb ptr(2)- 
#if DMP_MEM__ANy ~ 

dmp_libc_mem_si2e_inc (12) ; 

dmp_libc_leakage_power_msi2e_inc (12 ) ; 
#endif 

return (p) ; 

} 

#define dTnp_libc_memory__rec_msize_inc (sz ) \ 
libc_Tnemory_rec__lcurr_msize sz; \ 

if (libc_memory_rec__lcurr_msize>libc_memory_rec_lpeak_msize) \ 
libc_memory_rec_lpeak__msize = libc_memory_rec_lcurr_msize ; \ 
libc_memory__rec__curr_msi2e += sz; \ ~ 
if (1 ibc_memory_rec_curr_Tns i ze > 1 ibc_memory_re c j)eak_ms i ze ) \ 
li^C™^^'^o^y_^sc_peak_msize = libc_memory_rec_curr_msize ; 
#define dmp_libc_memory_rec_msize_dec (sz) \ 
libc_memory_rec_curr_msize -= sz;\ 
libc_memory_rec_lcurr_msi2e -= sz 
struct libc_meTnory_rec *new__libc_memory_rec (void) 

{ struct libc_memory_rec *p = (struct libc_memory_rec *) get mb ptr(2)- 
#if DMP_MEM__ANY ~ 

dmp_libc_mem_size_inc (12) ; 

dmp_libc_memory_rec_msi2e_inc (12) ; 
#endif 

return (p) ; 

} 

#define dmp_libc_j)iece_value_rec_msize_inc (sz) \ 
libcjpiece_value_rec_lcurr_msize += sz; \ 

if (libcjpiece_value_rec_lcurr_msize>libc_piece_value_rec_lpeak_msize) \ 
libc__piece_value_rec_lpeak__msize = libc_piece_value_rec_lcurr_msize; \ 
libc__piece_value_rec_curr_msize sz; \ 

if (libc_piece_value_rec_curr_msize>libcj>iece_value_rec_peak_msize) \ 
libc_piece_value_rec_peak_msize = libc_piece__value_rec_curr_Tnsize; 
#define dTnp_libc_piece_vaIue_rec_msize_dec (sz) \ 
libc_piece_value__rec__curr_msize -= sz;\ 
libcjpiece_value_rec_lcurr_msize -~ sz 
struct libc __piece_value_rec *new__libc_piece_value_rec (void) 
{ struct libc_piece_value_rec *p = (struct libc_piece_value_rec *) 
get__mb_ptr (9) ; 
#if DMP_MEM_ANY 

dmp_libc_mem_size_inc (4 0) ; 

dmp_libc_piece_value_rec_msize_inc (40) ; 
#endif 

return (p) ; 
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} 

#define dmp_libc_f loat_rec_Tnsize_inc (sz) \ 
libc_f loat_rec_lcurr__msize += sz; \ 

if (libc_f loat_rec_lcurr_msize>libc_f loat_rec_lpeak_msize) \ 
libc_f loat_rec_lpeak_msize = libc_f loat_rec_lcurr_msize ; \ 
libc_f loat_rec_curr_msize += sz; \ 

if (libc_f loat_rec_curr_msize>libc_f loat_rec_peak_msize) \ 
libc__f loat__recjpeak_msize = libc_f loat_rec_curr_msize; 
#define dmp_libc_f loat_rec_msize_dec (sz) \ 
libc_f loat_rec_curr_msize -= sz;\ 
libc_f loat_rec_lcurr_msize -= sz 
struct libc_f loat_rec *new__libc_f loat^rec (void) 

{ struct libc_float_rec *p = (struct libc_float rec *) get mb ptr(O)* 
#if DMP_MEM_ANY ~ - ' 

dmp_libc_mem_size_inc (4) ; 

dmp_libc__f loat_rec_Tnsize_inc (4) ; 
#endif 

return (p) ; 

} 



ftdefine dmp_ libc_ tab le_va l_r e c_Tns i ze_ i nc (sz) \ 
libc_table_val__rec_lcurr_msize += sz; \ 

if (libc_table_val_rec_lcurr_msize>libc_table_val_rec_lpeak_msize) \ 
libc_table_val_rec_lpeak_msize = libc_table_val_rec_lcurr_msize; \ 
libc_table_val__rec_curr_msize += sz; \ 

if {libc_table__val_rec_curr__msize>libc_table_val_rec_peak__msize) \ 
libc_table_val_rec_peak_msize = libc_table_val_rec_curr_msize; 
#define dmp_libc_table_val_rec_msize_dec (sz) \ 
libc_table_val_rec_curr__msize -= 5z;\ 
libc_table_val_rec_lcurr_msize sz 
struct libc_table_val_rec *new_libc_table_val_rec (void) 

{ struct libc_table_val_rec *p = (struct libc_table val rec *) get mb ptr 
#if DMP_MEM_ANY ~ " " 

dmp__libc_mem_size_inc (24) ; 

dmp__libc_table__val_rec_msize_inc (24) ; 
#endif 

return (p) ; 

} 

#define dmp_libc_timing_rec_msize_inc (sz) \ 
^i^c__tiTning_rec_lcurr_msize sz; \ 

if (libc_tiTning_rec_lcurr_msize>libc_timing_rec_lpeak_msize) \ 
libc_timing_rec_lpeak_msize = libc_timing_rec_lcurr_msize ; \ 
li^c_timing_rec_curr_Tnsize += sz; \ 

if (1 ibc_t iming__re c__cur r_ms i z e > 1 i b c_t iming_r ec jpe ak_ms i z e ) \ 
libc_timing_rec_peak_msize = libc_timing_rec_curr_msize; 
#define dmp_libc_timing_rec_msize_dec (sz) \ 
libc_timing_rec_curr_msize -= sz;\ 
libc_timing_rec_lcurr_msize -= sz 
struct libc_timing_rec *new_libc_tiniing_rec (void) 

{ struct libc_timing_rec *p = (struct libc_tiTning rec *) get mb ptr(22)- 
#if DMP_MEM_ANY ~ _ / 

dmp_libc_mem_size_inc (12 0) ; 
*^'^P_libc_timing_rec_Tnsize_inc (120) ; 
#endif 

return (p) ; 
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} 

#define dmp_libc_min_pulse_width_rec_TTisize_inc (sz) \ 
libc_min_pulse_width_rec_lcurr_msi2e += sz; \ 
if 

(libc_min_pulse_width_rec_lcurr_msize>libc_min__pulse_width_rec_lpeak__n:isize) \ 

libc_minjiulse_width_rec_lpeak_msi2e = 
libc__min_pulse_width_rec__lcurr_msi2e; \ 

libc_Tnin_pulse__width_rec_curr_msize += sz; \ 

if 

( 1 ibc_min_pu 1 s e_widt h_rec_curr_ms i ze > 1 ibc_min s e_^A?i dth_re c_peak_ms i ze ) \ 

1 ibc_min_pul se_width_rec jpeak_msi ze = 
1 ibc_mi n_pu 1 s e_wi d t h__r e c_cur r_ms i 2 e ; 

#define dmp_libc_min_puise_width_rec_msize__dec (sz) \ 

libc_min_jpulse_width__rec__curr__msize -= sz;\ 

libc__Tninjpulse_width_rec_lcurr_msize -= sz 
struct libc_min_pulse_width_rec *new_libc_Tnin_pulse_v;idth_rec (void) 
{ struct libc_min_pulse__width_rec *p = (struct libc_min_pulse_width_rec *) 
get_Tnb_ptr (3) ; 
#if DMP__MEM_ANy 

dmp_libc_mem_size_inc (16) ; 

dTnp_libc_min_pulse_width_rec_msize_inc (16) ; 
#endif 

return (p) ; 

} 

#define dmp_libc_minimuTn_j>eriod_rec_msi2e_inc (sz) \ 
libc_miniTnum_j)eriod_rec__lcurr_msize sz; \ 
if 

(libc_minimum_j)eriod_rec_lcurr_msize>libc_minimurn_j5eriod__rec_lpeak_TTisize) \ 

iibc_miniTnum_jperiod_rec_lpeak_msi2e = 
libc_minimum_jperiod__rec_lcurr_msize; \ 

libc_minimum_j)eriod_rec_curr_msize += sz; \ 

if 

(libc_minimum_j)eriod_rec_curr_msize>libc_minimum_period_rec_peak_msize) \ 

libc__minimum_period_rec_peak__msize = libc_Tninimum_jperiod_rec_curr_msize; 
ftdefine dmp_libc_minimum_jperiod_rec_Tnsize_dec (sz) \ 

libc__minimum_period_rec__curr_msize ~- sz;\ 

libc_minimum_period_rec_lcurr_msize -= sz 
struct libc_Tninimum_j)eriod__rec *new_libc_minimum_j)eriod_rec (void) 
{ struct libc_minimum_j)eriod_rec *p = (struct libc_minimumjperiod_rec *) 
get_mb_j)tr (2) ; 
#if DMP_MEM_ANY 

dmp_libc_mem_size_inc (12) ; 

dmp_libc_minimum_j5eriod_rec_msize_inc (12) ; 
#endif 

return (p) ; 

} 

#define dmp_libc_routing_track_rec_msize_inc (sz) \ 
libc_routing_track_rec_lcurr__msize += sz; \ 
if 

(libc_routing_track_rec_lcurr_Tnsize>libc_routing_track_rec_lpeak_msize) \ 

libc_routing_track_rec_lpeak_msize = libc_routing_track_rec_lcurr_msize; \ 
libc_routing_track_rec_curr__msi2e += sz; \ 

if (libc_routing_track_rec_curr_msize>libc_routing_track_recjpeak_msize) 

\ 
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1 ibc_rout ing_t rack_rec_j)eak_ms i ze = 1 ibc_rout ing_t rack_rec_curr__ms i ze ; 
#define dinp_libc_routing__track_rec_msize__dec (sz) \ 
libc_routing_track_rec_curr_msize -= sz;\ 
libc_routing_track_rec_lcurr_msize -= sz 
struct libc__routing_track_rec *new_libc_routing_track_rec (void) 
{ struct libc_routing_track__rec *p = (struct libc_routing__track_rec *) 
get_mb_jptr (3) ; 
#if DMP_ME]y!_My 

dmp_libc_meTn_size__inc (16) ; 
dTnp_libc_routing_track_rec_msize_inc (16) ; 
#endif 

return (p) ; 

} 

#define dmp_libc_def_entry_rec_msize_inc (sz) \ 
libc_def_entry_rec_lcurr_msize += sz; \ 

if (libc_def_entry__rec_lcurr_msi2e>libc_def_entry_rec_lpeak_Tnsize) \ 
libc__def_entry_rec_lpeak_msi2e = libc_def_entry_rec_lcurr_msize; \ 
libc_def_entry_rec_curr_msize += sz; \ 

if (libc_def_entry_rec_curr__msize>libc_def_entry_recjpeak_msize) \ 
libc_def_entry_rec_jpeak_msize = libc_def_entry_rec_curr_msize ; 
#define dmp_libc_def_entry_rec_msize_dec (sz) \ 
libc_def_entry_rec_curr_nisize -= S2;\ 
libc_def_entry_rec_lcurr_msize -= sz 
struct libc_def_entry__rec *new_libc_def_entry_rec (void) 

{ struct libc_def_entry_rec *p = (struct libc_def _entry__rec *) get_mb_ptr (2) ; 
#if DMP_MEM_ANy 

dTtip_libc_mem_size_inc (12) ; 

dinp_libc_def_entry_rec_msize__inc (12) ; 
#endif 

return (p) ; 

} 

#define dTT\p_libc__def ine_value_rec_Tnsize_inc { sz) \ 
libc_def ine_value_rec_lcurr__msize += sz; \ 

if {libc_def ine_value_rec__lcurr_msize>libc_def ine_value_rec_lpeak_msize) 

\ 

libc_def ine_value_rec_lpeak_msize = libc_def ine_value_rec_lcurr__msize; \ 
libc_def ine_value_rec_curr_msize += sz; \ 

if (libc_def ine___value__rec_curr_msize>libc_def ine__value_rec_peak_msize) \ 
libc_def ine_value_rec_peak_Tnsize = libc_def ine__value_rec_curr_msize; 
Sdefine dmp_libc_def ine_value_rec_msize_dec (sz) \ 
libc_def ine_value__rec_curr__Tnsize -= S2;\ 
1 i bc_de f ine_va lue_r ec_l curr_ms i z e - = s z 
struct libc_def ine_value_rec *new_libc_def ine_value_rec (void) 
{ struct libc_def ine__value_rec *p = (struct libc_def ine_value_rec *) 
get_mb_ptr (3) ; 
#if DMP_MEM_ANY 

dmp_libc_mem_size_inc (16) ; 
dmp__libc_def ine__value_rec_msize_inc (16) ; 
#endif 

return (p) ; 

} 

#define dmp_libc_glb_const__rec_msize_inc (sz) \ 
libc_glb_const_rec_lcurr_msize += sz; \ 

if (libc__glb_const_rec_lcurr_msize>libc_glb_const_rec_lpeak_msize) \ 
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libc_glb_const_rec_lpeak_msize = libc_glb_const_rec_lcurr_msize ; \ 
libc_glb_const_rec_curr_msi2e += sz; \ 

if (libc_glb_const_rec_curr_msize>libc_glb__const_rec__peak_msize) \ 
libc_glb_const_rec _peak_msize = libc_glb_const_rec_curr_msi2e ; 
#define dmp__libc_glb_const__rec_msize_dec (sz) \ 
libc_glb_const__rec_curr_msize sz; \ 
libc_glb_const_rec_lcurr_msize -= sz 
struct libc_glb_const_rec *new_libc_glb_const_rec (void) 

{ struct libc_glb_const_rec *p = {struct libc_glb_const rec *) get mb ptr(2) • 
#if DMP_MEM_ANY ~ - ^ 

dmp_libc_mem_size_inc (12) ; 
dmp_libc_glb_const_rec_msize_inc (12) ; 
#endif 

return (p) ; 

} 

#define dmp_libc_def_table_rec_msize_inc (sz) \ 
libc_def_table__rec_lcurr_msize += sz; \ 

if {libc_def_table_rec_lcurr_msi2e>libc_def_table_rec_lpeak_msize) \ 
libc_def_table_rec_lpeak_msi2e = libc_def_table_rec__lcurr_msi2e / \ 
libc_def_table_rec_curr_msize += sz; \ 

if (libc_def_table_rec_curr_msize>libc_def_table_rec_peak_msize) \ 
Iibc_def_table_recjpeak_msize = libc_def_table_rec_curr_msize; 
#define dmp_libc_def_table_rec_msize_dec (sz) \ 
libc_def_table_rec__curr_Tnsize -= sz ; \ 
iibc_def_table_rec_lcurr_msize sz 
struct libc_def_table_rec *new_libc_def_table_rec (void) 

{ struct libc_def__table_rec *p = (struct libc def table rec *) get mb ptr(3)- 
#if DMP__MEM_ANY - _ _ _ .jr- / 

dmp_libc_mem_size_inc (16) ; 
<^i^P_lifc'C_def_table_rec_Tnsi2e_inc (16) ; 
#endif 

return (p) ; 

} 

#endif 

routine : f ree_any_unit_rec ( ) 

void free__any_unit_rec (struct any_unit_rec *ptr) 

if (ptr==NULL) return; 

f ree_mb_j)tr ( (void *) ptr, 1) ; 
#if DMP_iyiEM_ANY 

dTnp_any_unit_rec__msize_dec (8) ; 

dmp_l ibc_TneTn_s i ze_dec ( 8 ) ; 
#endif 

} 

routine : nf ree_any_unit_rec ( ) 

void nfree_any_unit_rec (struct any_unit_rec **pptr) 
{ struct any_unit__rec *ptr= *pptr; 
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if (ptr==NULL) return; 

f ree_mbjptr ( (void *) ptr,l); 
#if DMP_MEM__ANY 

dmp_any_unit_rec__msize_dec { 8 ) ; 
dmp_libc_meTn_size__dec (8) ; 
#endif 

*pptr = NULL; 

} 

routine : f ree_libc_name_list__rec { ) 

void free__libc_name_list_rec (struct libc_name_list_rec *ptr) 

struct libc_name_list_rec *next; 

while (ptrl^NULL) { 

free_text_buf fer (ptr->name) ; 

next = ptr->next ; 
f ree_mb_ptr ( (void *) ptr, 1) ; 
#if DMP_MEM_ANY 

dmp_libc_name_list_rec_msize_dec (8) ; 
dmp_l ibc_Tnem_s i2e_dec ( 8 ) ; 
#endif 

ptr = next / 

} 

} 

routine : nf ree_libc_name_list_rec () 

void nfree_libc_name_list_rec (struct libc_name_list_rec **pptr) 
{ struct libc_name_list_rec *ptr= *pptr; 

struct libc_name_list_rec *next; 

while (ptri=NULL) { 

free_text_buf fer (ptr->name) ; 

next = ptr->next ; 
f ree_tTib_jptr ( (void *) ptr,l); 
#if DMP_MEM_ANY 

dmp_libc_name_list__rec_msize_dec (8) ; 
dmp_l ibc_mem_s i ze_dec ( 8 ) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

struct libc_name_list_rec * copy_l ibc_name_l is t_rec (struct libc name list 
*sou) ~ - 

{ struct libc_name__list_rec *tar, *head, *prev; 

if (sou==NULL) return (NULL) ; 
prev = NULL; 
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head = tar = new_libc_name_list_rec () ; 
while {sou!=NULL) { 

tar'->name = (char *) copy_string (sou->name) ; 

sou = sou->next ; 
if (soul=NULL) 
{ prev = tar; 

tar->next = new_libc_name_list_rec { ) ; 
tar = tar->next; 

} 

} 

return (head) ; 

} 



/* ======================================================= 

routine: f ree_libc_name_list_list () 

void free_libc_narae_list_list (struct libc_name_list_list *ptr) 
{ 

Struct libc__name_list_list *next; 

while (ptri=NULL) { 

f ree_libc_name_list_rec (ptr-> name_listl) / 

f ree_libc_name_list_rec (ptr->name_list2 ) ; 
next = ptr->next ; 

f ree_mb_ptr ( (void *) ptr,2); 
#if DMP_iy[EM__ANY 

dmp_libc_name_list_list_msize_dec (12) ; 

dmp_l ibc_Tnem_s i z e_de c ( 1 2 ) ; 
#endif 

ptr = next ; 

} 

} 

routine: nf ree_libc_naTne_list_list () 

void nfree__libc_name_list_list (struct libc_name_list_list **pptr) 
{ struct libc_name_list_list *ptr= *pptr; 

struct libc_naTne_list_list *next; 

while (ptr!=NULL) { 

f ree_libc_name_list_rec (ptr->name_listl) ; 

f ree_libc_name_list_rec (ptr-> name_list2) ; 

next - ptr->next ; 

f ree_mb_ptr ( (void *) ptr,2); 
#if DMP__MEM_ANY 

dmp_libc_name__list_list_msize_dec (12) ; 

dmp_libc_mem_si2e_dec (12) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 
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routine: f ree_libc_f loat_list_rec () 
void free__libc__float_list_rec (struct libc_f loat_list_rec *ptr) 

{ 

struct libc__f loat_list_rec *next; 

while {ptr!=NULL) { 
next = ptr->next ; 
f ree_mbjptr ( (void *) ptr,l); 
#if DMP_MEM_ANY 

dmp_libc_f loat_list_rec_msize_dec (8) ; 
dTnp_l ibc_mem__s i ze_dec ( 8 ) ; 
#endif 

ptr = next ; 

} 

} 

routine : nf ree_libc_f loat_list_rec () 

void nfree_libc_float_list_rec (struct libc_f loat_list_rec **pptr) 
{ struct libc_f loat_list_rec *ptr= *pptr; 

struct libc_f loat_list_rec *next; 

while (ptr!=NULL) { 
next - ptr->next ; 
f ree_mb_ptr ( (void *) ptr,l); 
#if DMP_MEM_ANY 

dmp_libc_f loat_list_rec_msize_dec (8) ; 
dinp__l ibc_mem_si 2e_dec ( 8 ) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

routine : f ree_libc_f loat_list_list ( ) 
void free_libc_float_list_list (struct libc__f loat_list_list *ptr) 

{ 

struct libc_f loat_list_list *next; 

while (ptr!=KULL) { 

f ree_libc_f loat_list_rec (ptr->v_list) ; 

next = ptr->next ; 

f ree_mb_ptr ( (void *) ptr,l); 
#if DMP__MEM_ANY 

dmp_libc_f loat_list_list_Tnsize_dec (8) ; 

dmp__libc_mem_size_dec (8) ; 
#endif 
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ptr = next ; 

} 

} 

routine: nf ree_libc_f loat_list_list () 

void nf ree_libc_f loat_list_list (struct libc_f loat_list_list **pptr) 
{ struct libc_f loat_list__list *ptr= *pptr; 

struct libc_f loat__list_list *next; 

while {ptr!=NULL) { 

f ree_libc_f loat_list_rec (ptr->v_list) ; 

next = ptr->next ; 

f ree_mb_ptr { (void *) ptr,l); 
#if DMP_MEM__ANY 

dmp_libc_f loat_list_list_Tnsize_dec (8) / 

dmp_libc_mem_size_dec (8) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

/* ======================================================= 

routine : f ree_libc_def ine_rec ( ) 

======================================================= */ 

void free_libc_define_rec (struct libc_def ine_rec *ptr) 
{ 

Struct libc_def ine_rec *next; 

while (ptr!=NULL) { 

f ree_text_buf f er (ptr->name) ; 

f ree_text_buf f er (ptr->object) / 

f ree__text_buf f er (ptr->type) ; 

next = ptr~>next ; 

f ree_mb_j)tr ( (void *) ptr,3); 
#if DMP_MEM_ANY 

dmp_libc_def ine_rec_Tnsi2e_dec (16) ; 

dmp_libc__mem_size_dec (16) ; 
#endif 

ptr = next ; 

} 

} 

/* ======================^ — ============================= 

routine : nf ree_libc_def ine_rec ( ) 

void nfree_libc_define_rec (struct libc_def ine_rec **pptr) 
{ struct libc_def ine_rec *ptr= *pptr; 

struct libc_def ine_rec *next; 
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while {ptr!=NULL) { 

f ree_text_buf f er (ptr->name) ; 

free_text_buf fer {ptr->object) ; 

f ree_text_buf f er (ptr->type) ; 

next = ptr->next ; 

f ree_mbjptr ( (void *) ptr,3); 
#if DMP_MEM_ANY 

ti^T^P_iit)C_def ine__rec_msi2e_dec (16) ; 

dmp_libc_meTn_size__dec (16) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

routine : f ree_libc_cell_area_rec ( ) 

void free_libc_cell_area_rec (struct libc_cell_area_rec *ptr) 
struct libc_cell_area_rec *next; 

while (ptri=NULL) { 

free_text_buffer (ptr-> area_name) ; 

next = ptr->next ; 

f ree_mb_ptr ( (void *) ptr,2); 
#if DMP_MEM__ANY 

dmp_libc_cell_area_rec_msize_dec (12) ; 

dmp__libc_meTn_size__dec (12) ; 
#endif 

ptr = next ; 

} 

} 

routine: nf ree_libc_cell_area rec() 



void nfree_libc_cell_area_rec (struct libc_cell__area_rec **pptr) 
{ struct libc_cell_area_rec *ptr= *pptr; 

struct libc_cell_area_rec *next; 

while (ptr!=NULL) { 

f ree_text_buf f er (ptr->area_naTne) ; 

next = ptr->next ; 
f ree_TTib_ptr ( (void *) ptr,2); 
#if DMP__MEM_ANrY 

dmp_libc_cell_area__rec_msi2e_dec (12) ; 
^^P_lit>c_mem_size_dec (12) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 
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routine : f ree__libc_k_f actor^rec ( ) 

void free_libc_k_factor_rec (struct libc_k__f actor_rec *ptr) 
{ int iO; 

struct libc_k_f actor_rec *next/ 

while (ptr!=NULL) { 

free_text_buf fer {ptr->kf_name) ; 

next = ptr->next ; 
f ree_mbjptr ( (void *) ptr,29) ; 
#if DMP_MEM_ANY 

dmp_libc_k_factor_rec_msize_dec (548) ; 
dmp_libc_meTn_size_dec (548) ; 
#endif 

ptr = next ; 

} 

} 

routine : nf ree_libc_k_f actor_rec ( ) 

void nfree__libc_k_factor_rec (struct libc_k_f actor_rec **pptr) 
{ struct libc_k_factor_rec *ptr= *pptr; 
int in- 
struct libc_k_factor_rec *next; 

while {ptr!=NULL) { 

free__text_buffer (ptr-> kf_name) ; 

next = ptr->next ; 
free_mb_ptr ( (void *) ptr, 29) ; 
#if DMP_MEM_A2Jy 

dmp_libc_k_f actor_rec_msize_dec (548) ; 
dmp_libc_mem_size__dec (548) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

routine : f ree_libc_lib_rec ( ) 

void free_libc_lib_rec (struct libc_lib_rec *ptr) 
{ int iO; 

if (ptr^-NULL) return; 

free_text_buffer (ptr->lib_name) ; 

free_text_buf f er (ptr->aux_no_j)ulldown_j3in_property) ; 

f ree_text_buf f er (ptr->bus_naming_style) ; 

free_text_buf fer (ptr-> comment) ; 

free_any__unit_rec (ptr-> current_unit ) ; 

free_text_buffer (ptr->date) ; 

f^^^_^J^y_^^it_rec (ptr->leakage__power_unit) ; 

f ree_text_buf f er (ptr->no__pulldown_pin_property) ; 
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f ree__any_unit_rec (ptr->power_unit ) ; 

f ree_text_buf f er (ptr->pref erred_output_pad_slew_rate_control) 

f ree_text_buf f er (ptr->pref erred_output_pad_voltage) ; 

f ree_text_buf f er {ptr->pref erred_input_pad__voltage) ; 

f ree__any_unit_rec (ptr->pulling_resistance_unit) ; 

f ree_text_buf f er {ptr->revision) ; 

f ree_any_unit_rec {ptr-> time^unit) / 

f ree__text_buf f er (ptr->unconnected_jpin_j)roperty) ; 

f ree_any_unit_rec (ptr->voltage_unit ) ; 

f ree_libc_name_list_rec (ptr->def ault_connection_class) ; 

f ree__text_buf f er (ptr->def ault_operating_conditions) ; 

f ree_text_buf f er (ptr->def ault_wire_load) ; 

f ree_text_buf f er (ptr-> def ault_wire_load_selection) ; 

f ree__libc_k_f actor_rec (ptr->k_f actor) ; 

f ree_libc_k_f actor__rec {ptr~>sc__k_f actor) ; 

f ree_any_unit_rec {ptr->capacitive_load_unit ) ; 

f ree_libc_def ine_rec (ptr->def ine) ; 

f ree_libc_cell_area_rec (ptr->def ine_cell_area) ; 

f ree_f loat__buf f er (ptr->piece__def ine) ; 

f ree__libc_naTne_list__rec (ptr-> rout ing_ layers) ; 

f ree_text_buf far {ptr-> technology) ; 

f ree_libc_lu_table_template_rec (ptr- >lut_template) ; 

f ree_libc_lu_table_template_rec (ptr->plut_teTnplate) ; 

f ree_libc_operating_condition_rec (ptr- >operating_cond) ; 

f ree_libc_power_supply__rec (ptr-> power_supply) ; 

f ree_libc_table_val_rec (ptr->rise_tr_table) ; 

f ree_libc__table_val_rec (ptr->f all_tr_table) ; 

f ree_libc_timing_range_rec (ptr->tiTning__range) ; 

f ree_libc_type_rec (ptr-> type) ; 

f ree_libc_wire_load_rec {ptr-> wire_load) ; 

free_libc__wire_load_s elect ion_rec (ptr- >wire_load_selection) ; 

f ree_libc_cell__rec (ptr- > cells) ; 

f ree_libc_def ine_value_rec (ptr->def_val ) ; 

f ree__TTib_ptr ( (void *) ptr, 28); 
#if DMP_MEiyi_ANY 

dmp_libc_lib_rec_msize_dec (392) ; 

dmp_l ibc_mem_s i ze_dec (392) ; 
#endif 
} 

routine: nf ree_libc_lib_rec () 

void nfree_libc_lib_rec (struct libc_lib_rec **pptr) 
{ struct libc_lib_rec *ptr= *pptr; 
int iO; 
if (ptr==NULL) return; 

f ree__text_buf fer (ptr->lib_name) ; 

f ree_text__buf f er (ptr->aux_nojpulldown_pin_property) ; 

f ree_text_buf f er {ptr-> bus_naming_style) ; 

f ree_text_buf f er (ptr->comment) ; 

f ree_any_unit_rec (ptr->current_unit ) ; 

f ree_text_buf f er {ptr->date) ; 

f ree_any__unit_rec (ptr->leakage_power_unit ) ; 

f ree_text_buf f er (ptr-> no__pulldown_pin_property) ; 

f ree_any_unit_rec (ptr->power__unit) ; 
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f ree_text_buf f er (ptr- >pref erred_output_pad_slew_rate_control) ; 

f ree_text_buf f er (ptr-> pref erred_output_pad_voltage) ; 

freest ext_buffer {ptr->pref erred_input__pad_voltage) ; 

f ree_any_unit_rec (ptr->pulling__resistance_unit ) ; 

f ree_text_buf f er {ptr-> revision) ; 

f ree__any_unit_rec {ptr->time_unit) ; 

f ree_text_buf f er {ptr->unconnected_pin_property) ; 

f ree_any__unit_rec (ptr- >voltage__unit) ; 

f ree_libc_name_list_rec (ptr-> def ault_connection_class) ; 

f ree_text_buf f er {ptr- >default_operating_condit ions) ; 

f ree_text_buf f er (ptr- >def ault_wire_load} ; 

f ree_text_buf f er (ptr-> def ault_wire_load_selection) ; 

f ree__libc_k_f actor_rec (ptr-> k_f actor) ; 

f ree_libc_k_f actor_rec (ptr- >sc_k_f actor) / 

f ree_any_unit_rec (ptr- >capacitive_load_unit ) ; 

f ree_libc_def ine_rec (ptr-> define) ; 

f ree_libc_cell_area_rec (ptr- >def ine_cell__area) ; 

f ree_f loat_buf fer (ptr-> piece_def ine) ; 

f ree_libc_name_list_rec (ptr- >routing_layers) ; 

f ree_text_buf f er (ptr- >technology) ; 

f ree_libc_lu_table_template_rec (ptr-> lut_template) ; 

f ree_libc_lu_table_template_rec (ptr->plut_template) ; 

f ree_libc__operating_condition_rec (ptr->operating_cond) ; 

f ree_libc_power_supply_rec (ptr->power_supply) ; 

f ree__libc_table_val_rec (ptr->rise_tr_table) ; 

f ree_libc__table_val_rec (ptr->f all_tr_table) ; 

f ree_libc_timing_range_rec (ptr-> timing_range) ; 

free__libc_type__rec (ptr- > type) ; 

f ree_libc_wire_load_rec (ptr->wire_load) ; 

f ree_libc_wire_load_selection_rec (ptr->wire_load__selection) ; 

f ree__libc_cell__rec (ptr->cells) ; 

f ree_libc_def ine_value_rec (ptr->def_val ) / 

f ree_mbjptr ( (void *) ptr, 28) ; 
#if DMP_MEM_ANY 

dmp__libc_lib_rec_Tnsi2e_dec (392) ; 

dmp_l ibc__mem_s i z e_de c ( 3 9 2 ) ; 
#endif 

*pptr = NULL; 

} 

routine : f ree_libc_lu_table_template__rec ( ) 

void f ree_libc_lu_table_teTnplate_rec (struct libc_lu_table_template_rec *ptr) 
( int iO; 

struct libc_lu_table_template_rec *next; 

while (ptr!=NULL) { 

f ree_text__buf f er {ptr-> tt_name) / 
f ree_f loat_buf f er (ptr->index_l) ; 
f ree_f loat_buf f er (ptr-> index_2) ; 
f ree_f loat_buf f er (ptr->index_3) ; 

next = ptr->next ; 
f ree_mb_ptr ( (void *) ptr,7); 
#if DMP__MEM_A]SrY 

dmp_libc_lu_table_template_rec_msize_dec (32) ; 
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dmp_libc_mem_size_dec (32) ; 
#endif 

ptr = next ; 

} 

} 

routine : nf ree_libc_lu_table_template_rec ( ) 

void nf ree_libc_lu_table_template_rec (struct libc_lu_table_template_rec 
**pptr) 

{ struct libc_lu_table_template__rec *ptr= *pptr; 
int i 0 ; 

struct libc_lu_table__template_rec *next; 

while (ptrl=NULL) { 

f ree__text_buf fer (ptr">tt_name) ; 

f ree_f loat_buf f er (ptr->index_l) ; 

f ree_f loat_buf f er (ptr-> index_2) ; 

f ree_f loat_buf f er {ptr->index_3 ) ; 

next = ptr->next ; 

f ree_mb__ptr { (void *) ptr,7); 
#if DMP__MEM_ANY 

dmp_libc_lu__table_template_rec_msi2e_dec (32) ; 

dmp_libc_mem_size__dec {32 ) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

routine : f ree_libc_oc__power_rail__rec ( ) 
void free_libc_oc_power_rail_rec (struct libc__oc_power_rail rec *ptr) 

{ 

struct libc__oc_power_rail__rec *next; 

while (ptrl=mJLL) { 

f ree_text_buf f er (ptr-> power_supply) ; 

next = ptr->next ; 

f ree_Trib_ptr ( (void *) ptr, 2) ; 
#if DMP_MEM_ANY 

dmp_libc_oc_power_rail_rec_Tnsi2e_dec (12) ; 

dmp__libc_mem_s i ze_dec { 12 ) ; 
#endif 

ptr = next ; 

} 

} 

/* ======================================================= 

routine : nf ree_libc_oc_power_rail_rec () 
void nfree_libc_ocj!ower_rail_rec (struct libc_oc_power_rail_rec **pptr) 
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{ struct libc_oc_power_rail_rec *ptr^ *pptr; 

struct libc_oc_power_rail_rec *next; 

while (ptrl=NULL) { 

f ree_text_buf f er (ptr->power_supply) ; 

next = ptr->next ; 
f ree__mb_j>tr ( (void *) ptr,2); 
#if DMP__MSM_ANY 

dmp_libc_oc_power_rail_rec_msize_dec (12) ; 
dmp_libc_mem_size_dec (12) ; 
#endif 

ptr = next / 

} 

*pptr = NULL; 

} 

/* ======================================================= 

routine : f ree_libc_operating_condition_rec ( ) 

void free_libc_operating_condition_rec (struct libc_operating_condition_rec 

*ptr) 

{ 

Struct libc_operating_condition_rec *next; 

while (ptrl=mJLL) { 

f ree_text_buf fer (ptr->oc_name) ; 

f ree__libc_oc_power_rail_rec (ptr->power_rail) ; 
next = ptr->next ; 

f ree_mb_jptr ( (void *) ptr,6); 
#if DMP_MEM_ANY 

dmp__libc_operating_condition_rec_msize_dec (2 8) ; 

dTnp_libc_mem_size__dec (2 8) ; 
#endif 

ptr = next ; 

} 

} 

routine : nf ree_libc_operating_condition_rec ( ) 

= = = ^ = ^ = ^ = = 

void nf ree_libc_operating_condition_rec (struct libc_operating_condition_rec 
**pptr) 

{ struct libc_operating_condition_rec *ptr= *pptr; 

struct libc_operating_condition_rec *next; 

while (ptr!:=NULL) { 

f ree_text__buf f er (ptr- > oc__name) ; 

f ree_libc_oc_j)ower_rail_rec (ptr-> power_rail) ; 

next = ptr->next ; 
f ree_Tnb_jptr ( (void *) ptr, 6); 
#if DMP_MEM_ANY 

dmp_libc_operating_condition_rec_Tnsize_dec (28) ; 
dmp__libc_mem_size_dec (28) ; 
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#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

routine : f ree_libc_power_supply_rec { ) 

======================================================= */ 

void free_libc__power_supply_rec (struct libc_power_supply_rec *ptr) 

( 

Struct libcjpower_supply_rec *next; 

while (ptr!=NXJLL) { 

f ree_text_buf f er (ptr->ps_name) ; 

f ree_text_buf f er (ptr->def ault_ps) ; 

f ree_libc_oc jiower_rail_rec (ptr-> power_rail) ; 
next = ptr->next ; 

f ree_mb_jptr ( (void *) ptr,3); 
#if DMP_MEM_ANY 

dmp_libc_power_supply_rec_Tnsize_dec (16) ; 

dmp_libc_meTn_size__dec (16) ; 
#endif 

ptr = next ; 

} 

} 

routine : nf ree_libc jpower__supply_rec ( ) 

void nfree_libc__power__supply_rec {struct libc_power_supply_rec **pptr) 
{ struct libc_power_supply_rec *ptr= *pptr; 

struct libc__power_supply_rec *next; 

while (ptr!=MULL) { 

f ree_text_buf f er (ptr->ps__name) ; 

f ree_text_buf f er (ptr- >def ault_ps ) ; 

f ree_libc_oc_power_rail_rec (ptr->power__rail) ; 
next = ptr->next ; 

f ree_mb_jptr ( (void *) ptr,3); 
#if DMP_MEM_ANY 

dmp_libc_power_supply_rec_msi2e_dec (16) ; 

dmp_l ibc_mem_s i z e_de c ( 1 6 ) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

/* ======================================================= 

routine : f ree_libc_timing_range_rec ( ) 

======================================================= */ 

void free_libc_timing_range_rec (struct libc_tiining_range_rec *ptr) 
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{ 

Struct libc_timing__range_rec *next; 

while (ptr!=NULL) { 

f ree_text_buf f er (ptr- >tr_name} ; 

next = ptr->next ; 
f ree_mb_ptr ( (void *) ptr,3); 
#if DMP_MEM_ANY 

dmp_libc__tiTning_range_rec_msize_dec (16) ; 
dmp_l i bc_meTn_s i 2 e_de c ( 1 6 ) ; 
#endif 

ptr = next ; 

} 

} 

routine : nf ree_libc_timing_range_rec ( ) 

void nfree_libc_tiTning_range_rec (struct libc_timing_range_rec **pptr) 
{ struct libc_timing_ range__rec *ptr= *pptr; 

struct libc_timing_range_rec *next; 

while (ptrl=NULL) { 

f ree_text_buf f er (ptr->tr_naTne) ; 

next = ptr->next ; 
f ree_inb_j)tr ( (void *} ptr,3); 
#if DMP_MEM_ANY 

dmp_libc_timing_range_rec_msi2e_dec (16) ; 
dTnp_libc_mem_size__dec (16) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

) 

routine : f ree_libc_type_rec ( ) 
void free_libc_type_rec (struct libc_type_rec *ptr) 

{ 

struct libc_type_rec *next; 

while (ptrl=NULL) { 

f ree_text_buf f er {ptr-> type_name) ; 

next = ptr->next ; 

f ree_mb__ptr ( (void *) ptr,5); 
#if DMP_MEM__ANY 

dmp_libc_tYpe_rec_msize_dec (24) ; 

dTnp_libc_mem_size_dec (24) ; 
#endif 

ptr = next ; 

} 

} 
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routine .- nf ree_libc_type_rec ( ) 

void nfree_libc_type_rec (struct libc_type_rec **pptr) 
{ struct libc_type_rec *ptr= *pptr; 

struct libc_tYpe_rec *next; 

while (ptri^NULL) { 

f ree_text_buf f er (ptr-> type_name) ; 

next = ptr->next ; 

f ree_mb_ptr ( (void *) ptr,5); 
#if DMP_MEM_ANY 

dmp_libc__type_rec__msi2e_dec (24) ; 

dTnp_l ibc_meTn_s i 2 e__de c { 2 4 ) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

routine : f ree_libc_f anout_length_rec ( ) 

void free_libc_fanout_length_rec (struct libc_fanout_length rec *ptr) 
{ 

Struct libc_f anout__length_rec *next; 

while (ptr!=NULL) { 
next = ptr->next ; 
f ree_mb_ptr ( (void *) ptr,8); 
#if DMP_MEiyi_AlJY 

dmp_libc_f anout_length_rec_msize_dec (3 6) ; 
dmp_l ibc_mem_s i z e_dec (36) ; 
#endif 

ptr = next ; 

} 

} 

routine : nf ree_libc_f anout_length_rec () 

void nfree_libc_fanout__length_rec (struct libc__f anout_length_rec **pptr) 
{ struct libc_f anout_length__rec *ptr= *pptr; 

struct libc_f anout_length_rec *next; 

while (ptrl=NULL) { 
next = ptr->next ; 
f ree_mb j>tr ( (void *) ptr,8); 

#if DMP_MEM_ANY 

dmp_libc_f anout_length_rec_Tnsi2e_dec (36) ; 

dmp_l ibc_mem_s i z e_de c ( 3 6 ) ; 
#endif 
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ptr = next ; 

} 

*pptr = NULL; 

1 

/* ======================================================= 

routine •. f ree_libc_wire_load_rec { ) 

void free_libc_wire_load_rec (struct libc_wire_load_rec *ptr) 
{ 

Struct libc__wire_load_rec *next; 

while {ptr!:=NULL) { 

f ree_text_buf f er (ptr->wl_name) ; 

f ree_libc__f anout_length_rec (ptr- >f anout_length) ; 

next = ptr->next ; 

f ree_mb_j)tr ( (void *) ptr;6); 
#if DMP_MEM_ANY 

dmp_libc__wire_load_rec_msize_dec (2 8) ; 

dmp_l ibc_meTn__s i ze_dec (28) ; 
#endif 

ptr = next ; 

} 

} 

routine : nf ree_libc_wire_load__rec () 

void nfree_libc_wire_load_rec (struct libc_wire_load_rec **pptr) 
{ struct libc_wire_load_rec *ptr= *pptr; 

struct libc__wire__load_rec *next; 

while (ptr!=NULL) { 

f ree_text_buf f er (ptr->wl_name) ; 

f ree_libc_f anout_length_rec (ptr->f anout_length) ; 
next = ptr->next ; 

f ree_mb_j5tr ( (void *) ptr, 6); 
#if DMP_MEM_ANY 

dTnp_libc_wire_load__rec_msize_dec (2 8) ; 

dmp_l ibc_Tnem__s i z e_de c ( 2 8 ) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

/* ======================================================= 

routine : f ree_libc_wire_load_f rora_area_rec ( ) 
======================================================= */ 

void free_libc_wire_load_from_area_rec (struct libc_wire_load_f rom_area_rec 
*ptr) 

{ 

struct libc_wire_load_f rom_area_rec *next; 
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while (ptr!=NULL) { 
next = ptr->next ; 
f ree__mb_ptr ( (void *) ptr,3); 
#if DMP_MEM_ANY 

dTnp_libc_wire_load_f rom_area_rec_msize_dec (16) ; 
dTnp_l i bc__Tnem_s i 2 e_de c { 1 6 ) ; 
#endif 

ptr = next ; 

} 

} 

routine : nf ree_libc_wire_load_f rom_area_rec { ) 
^__======.=.========.===.==.====.==================== V 

void nf ree_libc_wire_load_f roTn__area_rec (struct libc_wire_load_f rom_area__rec 
**pptr) 

{ struct libc_wire_load_f rom_area_rec *ptr= *pptr; 

struct libc_wire__load_f rom_area_rec *next; 

while (ptrl=NULL) { 
next = ptr->next ; 
f ree_mb__ptr ( (void *) ptr,3); 
#if DMP_MEM_ANY 

dmp_libc_wire_load_f rom_area_rec_msize_dec (16) ; 
dmp_libc_mem_size_dec (16) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

routine : f ree_libc_wire_load_selection_rec { ) 
======================================================= */ 

void f ree_libc_wire_load_selection_rec (struct libc_wire_load_selection_rec 
*ptr) 

{ 

Struct libc_wire_load_selection_rec *next; 

while (ptr]=NULL) { 

f ree_text_buf f er (ptr- >wls_name) ; 

f ree_libc__wire_load_f rom__area_rec (ptr->area_table) ; 
next = ptr->next ; 

f ree_mb_ptr ( (void *) ptr,2}; 
#if DMP_MEM_ANY 

dmp_libc_wire_load_selection_rec_n\size_dec (12) ; 

dmp__l i b c_Tnem_s i 2 e_de c ( 1 2 ) ; 
#endif 

ptr = next ; 

} 

} 
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routine : nf ree__libc_wi re_load_s elect ion_rec ( ) 

void nf ree_libc_wire_load_selection_rec (struct libc_wire_load__selection_rec 
**pptr) 

{ struct libc_wire__load_selection_rec *ptr= *pptr; 

struct libc_wire_load_selection_rec *next; 

while (ptrl^mJLL) { 

f ree_text_buf f er (ptr->wls_name) ; 

f ree_libc_wire_load_f rom_area_rec (ptr->area_table) ; 
next = ptr->next ; 

f ree_nib_ptr ( {void *) ptr,2); 
#if DMP_MEM_ANY 

dmp_libc__wire_load_selection_rec_msi2e_dec (12) ; 

dmp_libc_mem_size_dec (12) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

routine : f ree_libc_cell_rec () 
void free_libc_cell_rec (struct libc_cell_rec *ptr) 

{ 

struct libc_cell_rec *next; 

while (ptr!=MULL) { 

f ree_text_buf f er (ptr'->cell_name) / 

f ree_text_buf f er (ptr- >cell_f ootprint ) ; 

f ree_libc_bool_opr_rec {ptr->contention__condition) ; 

f ree_text_buf f er (ptr->geoTnetry_print) ; 

f ree_text_buf f er (ptr- >scan_group) ; 

f ree_text_buf f er (ptr->single__bit_degenerate) ; 

f ree_text_buf f er (ptr->vhdl_name) ; 

f ree_libc_name_list_list (ptr->pin_equal ) ; 

f ree__libc_name_list_list (ptr->pin_opposite) ,- 

f ree_libc_pin_rec (ptr->pins) ; 

f ree_libc_internal_power (ptr->internal_power_c) ; 

f ree_libc_leak:age_power (ptr->leakage_power) ; 

f ree_libc_f f_latch__rec (ptr->f f_latch) ; 

f ree_libc_memory_rec (ptr-> memory) ; 

f ree_libc_routing_track_rec (ptr- >routing__t rack) ; 

f ree_libc_def ine_value_rec (ptr-> def_val) ; 

next = ptr->next / 

f ree_mb_jptr ( (void *) ptr, 23) ; 
#if DMP_MEM_ANY 

dmp_libc_cell_rec_msize_dec (132) ; 

dmp_l ibc_mem_s i 2e_dec (132) ; 
#endif 

ptr = next ; 

} 

} 
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routine: nf ree_libc_cell_rec ( ) 

void nfree_libc_cell_rec (struct libc_cell_rec **pptr) 
{ struct libc_cell_rec *ptr= *pptr; 

struct libc_cell_rec *next; 

while {ptr]=NULL) { 

f ree_text_buf f er (ptr->cell_name) ; 

f ree_text_buf f er (ptr->cell_footprint) ; 

f ree_libc_bool_opr_rec (ptr->contention_condition) ; 

f ree_text_buf f er (ptr->geometry_print) ; 

freest ext_buffer (ptr~>scan_group) ; 

f ree_text_buf f er {ptr~>singie_bit_degenerate) ; 

f ree_text_buf f er (ptr-> vhdl_name) ; 

f ree_libc_name_list_list (ptr->pin_equal) ; 

free_libc_name__list_list (ptr->pin_opposite) ; 

f ree_libc_j)in_rec (ptr- > pins) ; 

f ree__libc_internaljpower Cptr-> internal_power_c) ; 

f ree_libc_leakagejpower Cptr->leakage_jpower) ; 

f ree___libc_f f_latch_rec (ptr->f f_latch) ; 

f ree_libc_TneTnory_rec {ptr->memory) ; 

f ree_libc_routing_track_rec (ptr->routing_track) ; 

f ree_libc_def ine_value_rec {ptr->def_val) ; 
next = ptr->next ; 

f ree_mb_ptr ( (void *) ptr, 23); 
#if DMP_MEM_ANY 

dmp_libc_cell_rec__msi2e_dec (132) ; 

dmp_l i b c__meTn_s i z e_de c (1 3 2 ) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

/* ======================================================= 

routine : f ree_libc_memory_write_rec ( ) 

void free_libc_ineinory_write_rec (struct libc_meinory_write_rec *ptr) 

{ 

if (ptr:^=NULL) return; 

f ree_text_buf fer (ptr-> address); 

f ree_text_buf f er (ptr- >clock_on) ; 

f ree_text_buf f er (ptr-> enable); 

f ree_mb_ptr ( (void *) ptr, 2); 
#if DMP_ME]y[_AOT 

dmp_libc_Tnemory_write_rec_msi2e_dec (12) ; 

dmp_libc_mem_si2e_dec (12) ; 
#endif 
} 

/* = = = = = = ^ = = = ^ = = = = ^ = ^ = = . = = . = = 

routine : nf ree_libc_memory_write_rec ( ) 
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void nfree_libc_memory__write_rec (struct libc_memory__write_rec **pptr) 
{ struct libc_memory_write_rec *ptr= *pptr; 

if (ptr==NULL) return; 

free_text_buf fer (ptr- >address) ; 
f ree__text_buf fer (ptr-> clock_on) ; 
f ree_text_buf fer (ptr->enable) ; 
f ree_mb__ptr { (void *) ptr,2); 
#if DMP_MEM_ANY 

dmp_libc_memory_write_rec_msi2e_dec (12) ; 
dmp_libc_mem_size_dec (12) ; 
#endif 

*pptr = NULL; 



struct libc__meniory_write__rec * copy_libc__memory_write_rec (struct 
libc_memory__write_rec *sou) 

{ struct libc_memory_write_rec *tar, *head, *prev; 

if (sou=-MJLL) return (NULL) ; 
prev = NULL; 

head = tar = new_libc_memory_write_rec ( ) ; 

tar->address = (char *) copy_string (sou->address) ; 
tar->clock_on = (char *) copy_s t ring (sou- >clock_on) ; 
tar->enable = (char *) copy_string {sou->enable) ; 

return (head) ; 

} 

routine : f ree_libc_bool_opr_rec ( ) 

void free_libc_bool__opr_rec (struct libc_bool_opr_rec *ptr) 

struct libc_bool_opr_rec *next; 

while (ptrI=NULL) { 
switch (ptr-> type) { 
case ID_B : 

free_text_buf fer {ptr-> u.id_name) ; 
break; 

default : 

break; 

} 

free_libc_bool_opr_rec (ptr->L) ; 

next = ptr->R ; 
f ree_mb_ptr ( (void *) ptr,3); 
#if DMP_MEM_ANY 

dmp_libc_bool_opr_rec_Tnsi2e_dec (16) ; 
dmp_libc_mem__size_dec (16) ; 
#endif 

ptr = next ; 
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} 

} 

routine : nf ree_libc_bool_opr_rec ( ) 

void nfree_libc_bool_opr_rec (struct libc_bool_opr_rec **pptr) 
{ struct libc_bool_opr_rec *ptr= *pptr; 

struct libc_bool_opr_rec *next; 

while (ptri^NULL) { 
switch (ptr->type) { 
case ID_B : 

f ree_text_buf fer (ptr->u . id_naTne) ; 
break; 

default : 

break; 

} 

f ree_libc_bool_opr_rec (ptr->L) ; 

next = ptr->R ; 

f ree_mbjptr ( (void *) ptr,3); 
#if DMP_MEM_ANY 

dmp__l i b c_boo l_op r_r e c_ms i z e_de c (16) ; 

dTnp_l ibc_mem_s i 2 e_dec (16) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

Struct libc_bool_opr_rec * copy_libc_bool_opr_rec (struct libc_bool_opr_rec 
*sou) 

{ struct libc_bool_opr_rec *tar , *head, *prev; 

if {sou==NULL) return (NULL); 
prev = NULL; 

head = tar = new_libc_bool_opr_rec ( ) ; 
while (sou!=NULL) { 

memcpy ( (char *)tar,(char *) sou, sizeof (struct libc_bool__opr_rec) ) ; 

tar->type = sou->type; 

switch (sou->type) { 
case ID__B : 

tar->u.id_name = (char *) copy_s t ring (sou- >u. id__name) ; 
break ; 

default : 

tar- >u. value = sou ->u .value; 

break; 

} 

tar->L = (struct libc_bool_opr_rec *) 

copy_libc_bool_opr_rec (sou->L) ; 
sou = sou->R ; 
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if (sou!=NULL) 
{ prev = tar; 

tar->R = new__libc__bool_opr_rec ( ) ; 

tar = tar->R; 

} 

} 

return (head) ; 

} 



/* ============================= 

routine : f ree_libc_pin_rec ( ) 



void free_libc_jpin_rec (struct libc_pin_rec *ptr) 
{ 

Struct libc_j>in_rec *next; 

while {ptrl=tTULL) { 

f ree_libc_name_list__rec (ptr->pin__name) ; 

f ree_libc_name__list_rec (ptr->members) ; 

f ree_libc_naTne_list_rec (ptr->connection_class) ; 

f ree_libc_bool_opr_rec (ptr-> function) ; 

f ree_libc_name_list_rec (ptr->input__map) ; 

freest ext_buffer (ptr->input_signal_level) ; 

f ree_text_buf f er {ptr->input_voltage) ; 

f ree_text_buf f er (ptr->internal_node) ; 

f ree_text_buf f er {ptr->output_signal_level) ; 

f ree_text_buf f er (ptr- > output_voltage) ; 

f ree_libc__bool_opr_rec {ptr-> state_f unction) ; 

f ree__libc_bool_opr_rec (ptr->three_state) / 

f ree__text_buf f er (ptr->vhdl_name) ; 

f ree_text_buf f er {ptr->wired_connection_class) ; 

f ree_libc_bool_opr_rec (ptr->x_function) ; 

f ree__text_buf f er {ptr- >address_of_memory_read) ; 

f ree_libc_memory_write_rec (ptr- >memory_write) ; 

f ree_libc_timing_rec (ptr->timing) ; 

f ree_libc_min_j)ulse_width_rec (ptr- >minj>ulse__width) ; 

f ree_libc_minimumjperiod_rec {ptr->minimum_period) ; 

f ree_libc_internal_power {ptr- >internal_j)ower) ; 

f ree__libc_def ine__value_rec (ptr->def _val) ; 
next = ptr->next ; 

f ree_mb_j)tr ( {void *) ptr,27); 
#if DMP_MEM_ANY 

dmp_libc__pin_rec_Tnsize_dec (276) ; 

dmp^l ibc_mem_s i z e_de c { 2 7 6 ) ; 
#endif 

ptr = next ; 

} 

} 

/* ===================================================== 

routine : nf ree_libc_pin_rec ( ) 



void nfree_libc_pin_rec (struct libcjpin_rec **pptr) 
{ struct libcjpin_rec *ptr= *pptr,- 
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struct libcjpin_rec *next; 

while (ptr!=NULL) { 

f ree_libc_name_list__rec (ptr->pin_name) ; 

f ree_libc_name_list_rec (ptr->members) ; 

f ree_libc_name_list_rec {ptr-> connection_class) ; 

f ree_libc_bool_opr_rec {ptr->f unction) ; 

f ree_libc_name_list_rec (ptr->input_map) ; 

f ree_text_buf f er (ptr->input_signal__level) ; 

f ree_text_buf f er (ptr- >input_voltage) ; 

f ree_text_buf f er (ptr-> internal_node) ; 

f ree_text_buf f er (ptr- >output_signal_level) ; 

f ree_text_buf f er (ptr- >output_voltage) ; 

f ree_libc_bool_opr_rec (ptr- >state_f unction) ; 

f ree_libc_bool_opr_rec (ptr- >three_state) ; 

f ree_text_buf f er (ptr->vhdl_name) ; 

f ree_text_buf f er (ptr->wired_connection_class) ; 

f ree_libc_bool_opr_rec (ptr- >x_f unction) / 

f ree_text_buf f er (ptr-> address_of__memory_read) ; 

f ree_libc_metnory_write_rec (ptr->memory_write) ; 

f ree_libc_timing_rec (ptr->timing) ; 

f ree_libc_min_j>ulse_width_rec (ptr-> min__pulse_width) ; 

f ree_libc_minimuTn_j)eriod_rec (ptr->Tninimum__period) ; 

f ree_libc_internal_jpower (ptr->internal_power) ; 

f ree_libc_def ine_value_rec (ptr->def_val) ; 
next = ptr->next ; 

f ree_Tnb_ptr { (void *) ptr, 27); 
#if DMP_MEM_ANY 

dmp_libc_pin_rec_msi2e_dec (276) ; 

dmp_libc_mem_size_dec (276) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

Struct libc_jpin_rec * copy_libc_pin_rec (struct libc_pin_rec *sou) 
{ struct libc_pin_rec *tar , *head, *prev; 

if (sou-=NULL) return (NULL) ; 
prev = NULL; 

head = tar = new_libc_pin__rec { ) ; 
while (soul=NULL) { 

tar->pin_naTne = (struct libc_name_list_rec *) 
copy_libc_name_list_rec (sou->pin_name) ; 

tar->_current_cell = sou->_current_cell; 

tar->members = (struct libc_name_list_rec *) 
copy_libc_name_Iist_rec (sou- >mernbers) ; 

tar->is_bus = sou->is_bus; 

tar->_bus_type = sou->_bus_type ; 

tar->capacitance = sou- >capacitance ; 

tar->clock = sou->clock; 

tar- >clock_gate_enable_pin = sou->clock_gate_enable_pin; 
tar->connection_class = (struct libc_name_list_rec *) 
copy_libc_name_list_rec (sou->connection_class) ; 
tar->direction = sou->direction; 
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tar- >dont_f alse - sou- >dont__f alse 
tar->drive_current = sou- >drive_current ; 
tar->drive_type = sou->drive_type ; 
tar->emitter_count = sou- >emitter_count ; 
tar->f all_current_slop_af ter^threshold = sou- 

>f all_current_slop_af ter_threshold; 
tar->f all_current_slop_bef ore_threshold = sou- 

>f all_current_slop_bef ore__threshold; 
tar->f all__time__af ter__threshold = sou->f all_time_af ter_threshold; 
tar->fall_time_before_threshold = sou->f all_time_bef ore_threshold; 
tar->fall_wor_emitter = sou->fall_wor_emitter; 
tar->f all_wor_intercept - sou->f all_wor_intercept ; 
tar->f anout_load = sou->f anout_load; 
tar->function = (struct libc_bool_opr_rec *) 

copy_libc_bool_opr_rec (sou->function) ; 
tar->hysteresis = sou->hysteresis ; 
tar- >input_Tnap = (struct libc_natne_list__rec *) 

copy_libc_name_list_rec (sou->input_map) ; 

tar->input_signal_level = (char *) copy_string (sou->input_signal_level) 
tar->input_voltage = (char *) copy_st ring (sou- >input_volt age) ; 
tar->internal_node = (char *) copy_string (sou->internal_node) ; 
tar->inverted_output = sou->inverted_output ; 
tar->is_jpad = sou->isj>ad; 

tar->rriax_f anout = sou->max_f anout ; 
tar->Tnax_transition = sou- >max_transition; 
tar->max_capacitance = sou- >max_capacitance; 
tar ->min_f anout = sou->min_f anout ; 
tar->min_transition = sou- >min_transition; 
tar->min_capacitance = sou->min_capacitance; 
tar->multicell^ad_pin = sou- >multicell_pad__pin; 
tar- >multiple_drivers_legal = sou->multiple_drivers_legal ; 
tar->nextstate_type = sou- >nextstate_type; 
tar->output_signal_level = (char *) copy_string (sou- 
>output_signal__level) ; 

tar->output_voltage - (char *) copy_string (sou->output_voltage) ; 
tar->pin__func_type = sou->pin_f unc_type; 
tar->pin_power - sou->pin_jpower ; 
tar->pref er__tied = sou->pref er_tied; 
tar->primary_output = sou->primary_output ; 
tar- >pulling_current - sou->pulling_current ; 
tar->pulling__resistance = sou ->pulling__resi stance ; 
tar->ref erence__capacitance = sou->reference_capacitance; 
tar- >rise_current_slop_af ter_threshold - sou- 

>rise_current_slop_af ter__threshold; 

tar->rise_current_slop_bef ore_threshold = sou- 

>rise__current_slop_bef ore_threshold; 
tar->rise_time_af ter_threshold = sou->rise_time_af ter_threshold; 
tar- >rise__time__bef ore__threshold = sou- >rise_time_bef ore_threshold; 
tar->rise_wor_emitter = sou->rise_wor_emitter ; 
tar->rise_wor_intercept = sou->rise_wor_intercept ; 
tar->slew_control = sou->slew_control ; 
tar- >state_f unction = (struct libc__bool_opr_rec *) 

copy_libc_bool_opr_rec ( sou- >state_f unction) ; 

tar->three_state = (struct libc_bool_opr_rec *) 

copy_libc__bool_opr_rec (sou- >three_state) ; 

tar->vhdl_name = (char *) copy_s t ring (sou- >vhdl_name) ; 
tar->wire_capacitance = sou- >wire_capacitance; 
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tar->wired_connection_class = (char *) copy_string (sou- 
>wired_connection_class ) ; 

tar- >x_f unction = (struct libc_bool_opr_rec *) 
copy_libc_bool_opr_rec (sou->x_function) ; 

tar->address_of_memory_read = (char *) copy_string (sou- 
>address_of_memory_read) ; 

tar->memory_write = (struct libc_memory_write_rec *) 
copy_libc_memory_write_rec (sou->memory_write) ; 

tar->timing = (struct libc_timing__rec *) copy_libc_ timing rec(sou- 

> timing) ; 

tar->min_jpulse__width = (struct libc_min_pulse_width_rec *) 
copy_libc_min_pulse_width_rec (sou- >min_pulse_width) ; 

tar->minimumjperiod = (struct libc_miniraum__period_rec *) 
copy_libc_minimum _j)eriod__rec (sou- >minimum_j)eriod) ; 

tar->internal_power = (struct libc_internal_power *) 
copy_libc_internal_power (sou- >internal_power ) ; 

tar->def_val = (struct libc_def ine_value_rec *) 
copy_libc__def ine_value_rec (sou->def_val) / 

tar- >pin_type = sou->pin_type; 

sou = sou->next ; 

if (sou!=NULL) 

{ prev = tar; 

tar->next = new_libc_pin__rec ( ) ; 
tar = tar->next; 

} 

} 

return (head) ; 

} 

routine : f ree_libc_f f_latch_rec ( ) 

void free_libc_ff_latch_rec (struct Iibc_ff_l at choree *ptr) 

struct libc_ff_latch_rec *next; 

while (ptr ! =mJLL) { 

free_text_buf f er {ptr->Q_name) ; 
free_text_buffer (ptr->QN_name) ; 
f ree__libc_bool_opr_rec (ptr->clear) ; 
f ree__libc_bool__opr_rec (ptr->preset ) ; 
f ree_libc_bool_opr__rec (ptr-> clock_on) ; 
free_libc_bool_opr_rec (ptr-> next_state) ; 
free_Iibc_bool_opr_rec (ptr- >on_also) ; 
free_libc_bool__opr_rec (ptr->enable) / 
f ree_libc_bool_opr_rec (ptr->data_in) ; 
f ree_libc_bool_opr_rec (ptr->f orce_00) ; 
f ree_libc_bool__opr_rec (ptr->f orce_01} ; 
f ree_libc_bool_opr_rec (ptr->f orce_10) ; 
f ree_libc_bool_opr_rec (ptr->f orce_ll) ; 

next = ptr->next ; 
free__mb_ptr ( (void *) ptr, 15); 
#if DMP_MEM_ANY 

dmp_libc_f f_latch_rec_msize_dec (64) ; 
dmp_libc_mem_size_dec (64) ; 
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#endif 

ptr = next ; 

} 

} 

routine : nf ree_libc_f f__latch__rec ( ) 

void nfree_libc_ff_latch_rec (struct libc_f f__latch_rec **pptr) 
{ struct libc_f f_latch__rec *ptr= *pptr; 

struct libc_f f_latch_rec *next; 

while (ptr!=NULL) { 

free_text_buffer {ptr->Q_name) ; 

free_text_buf fer (ptr-> QN_naTne) ; 

f ree_libc_bool_opr_rec (ptr->clear) ; 

f ree_libc_bool_opr_rec (ptr->preset) ; 

f ree_libc_bool_opr_rec (ptr- >clock_on) ; 

free _libc_bool_opr_rec (ptr- > next_state) ; 

f ree_libc_bool_opr_rec (ptr- >on_also) ; 

f ree_libc_bool_opr_rec (ptr-> enable) ; 

free_libc_bool_opr_rec (ptr- >data_in) ; 

f ree_libc_bool_opr_rec (ptr->force_00) ; 

f ree_libc_bool_opr_rec (ptr->f orce_01) ; 

f ree_libc_bool_opr_rec (ptr->f orce__10) ; 

free_libc_bool_opr_rec (ptr- >f orcein) ; 

next = ptr->next ; 

f ree_mb jtr ( (void *) ptr, 15); 
#if DMP_MEM_ANY 

dmp_libc__f f_latch_rec_msize_dec (64) ; 

dmp_libc__mem_size_dec (64) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

routine : f ree_libc_internal_power ( ) 

void free_libc_internalj>ower (struct libc_internal_power *ptr) 

struct libc_internal_power *next; 

while (ptrI=NULL) { 

f ree_libc_name__list__rec {ptr->inputs) ; 
f ree_libc_name_list_rec (ptr- >outputs) ; 

f ree_libc_name_list_rec (ptr- >equal_or_opposite_output) ; 

f ree_text_buf fer (ptr->power_level ) ; 

f ree_libc_name_list_rec (ptr->related_pin) ; 

free_libc_bool_opr_rec (ptr-> when) ; 

f ree_libc_table_val_rec {ptr-> risejpower) ; 

free_libc__table_val_rec (ptr- >f all_power) ; 

f ree_libc_table_val_rec (ptr->power) ; 
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next = ptr->next ; 

f ree_mb_ptr ( (void *) ptr,9); 
#if DMP_MEM_AISrY 

dmp_libc_internal_power_msize_dec (4 0) ; 

dmp_libc_Tnem_size_dec (4 0) ; 
#endif 

ptr = next ; 

} 

} 

routine : nf ree_libc_internal_power ( ) 

void nfree_libc_internal__power (struct libc_internal_power **pptr) 
{ struct libc_internal_power *ptr= *pptr; 

struct libc__internal jower *next; 

while (ptr!=NULL) { 

f ree__libc_name_list__rec (ptr-> inputs) ; 
f ree_libc_name_list_rec (ptr->outputs) ; 

free_libc_name_list_rec (ptr->egual_or_opposite_output ) ; 

f ree_text_buf f er (ptr- >power_level) ; 

f ree_libc_name_list_rec (ptr->related_pin) ; 

f ree_libc_bool_opr_rec (ptr-> when) ; 

f ree_libc_table__val__rec (ptr->rise_j)ower) ; 

f ree_libc_table_val__rec (ptr- >f all_power) ; 

f ree_libc_table_val_rec (ptr->power) / 
next - ptr->next ; 

free_mbjtr ( (void *) ptr,9); 
#if DMP_MEM_ANY 

dTnp_libc_internal__power_msize_dec (40) ; 

dmp_libc_mem_size_dec (40) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

struct libc_internal_power * copy_libc_internal_power (struct 
libc_internal_power *sou) 

{ struct libc_internal__power *tar , *head, *prev; 

if {SOU--NULL) return(NULL); 
prev = NULL; 

head = tar = new_libc_internal_power ( ) ; 
while (sou!=NULL) { 

tar->inputs = (struct libc_name_list_rec *) 

copy_libc_name__list_rec (sou->inputs) ; 

tar->outputs - (struct libc__name__list_rec *) 
copy_libc_name_list_rec (sou->outputs) ; 

tar->equal_or_opposite_output = (struct libc_name__list_rec *) 
copy__libc_name_list_rec (sou->equal_or_opposite_output) ; 

tar->power_level = (char *) copy__string (sou->power_level} ; 

tar->related_j)in = (struct libc_name_list_rec *) 
copy_libc__name_list_rec (sou->related_j)in) ; 
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tar->when = (struct libc_bool_opr__rec *) 

copy_libc_bool_opr_rec ( sou -> when) ; 

tar->rise_power = (struct libc_table_val_rec *) 
copy_libc__table_val_rec (sou- >rise_jpower) ; 

tar- >f all j>ower = (struct libc_table__val_rec *) 
copy_libc_table_val_rec (sou- >f all_power) ; 

tar->power = (struct libc_table_val_rec *) 

copy_libc__table_val_rec (sou->power) ; 

sou = sou->next ; 

if (sou!=NULL) 

{ prev = tar; 

tar->next = new_libc_internal_j5ower ( ) ; 
tar = tar->next; 

} 

} 

return (head) ; 

} 



/* ======================================^ — 

routine : f ree_libc_leakage_power { ) 

= = : = = . = = = = = ^ = = = = = = = = = = = = = = = = = = ^ ^ = = */ 

void free__libc_leakage_power (struct libc_leakage_j)ower *ptr) 

{ 

struct libc_leakage__power *next; 

while (ptr!=NULL) { 

f ree_libc_bool__opr_rec (ptr-> when) ; 

next = ptr->next ; 
f ree_mb_ptr ( (void *) ptr,2); 
#if DMP_iy[EM_ANY 

dmp_libc_leakage__power_msize_dec (12) ; 
dmp_libc_Tnem_size_dec (12) ; 
#endif 

ptr = next ; 

} 

} 

/* ======================================================= 

routine : nf ree_libc_leakage jower ( ) 

void nfree_libc_leakage_power (struct libc_leakage_power **pptr) 
{ struct libc_leakage_power *ptr= *pptr; 

struct libc_leakage_power *next; 

while (ptr!=NULL) { 

f ree_libc_bool_opr_rec (ptr->when) ; 

next - ptr->next ; 

f ree_mb_ptr ( (void *) ptr,2); 
#if D!yiP_MEM_ANY 

dmp_libc_leakage_power_msize_dec (12) ; 

dmp_libc_mem_size_dec (12 ) ; 
#endif 

ptr = next ; 



A-LIBC-206 



libc mem.c 



} 

*pptr = NULL; 

} 

Struct libc_leakage_power * copy_libc_leakagejpower (struct libc_leakage_power 
*sou) 

{ struct libc_leakage jiower *tar ; *head, *prev; 

if {sou==NULL) return (NULL); 
prev = NULL; 

head = tar = new_libc_leakage_jpower ( ) ; 
while (souI=NULL) { 

tar->when = (struct libc_bool__opr_rec *) 

copy__libc_bool_opr_rec (sou->when) ; 
tar->value = sou->value; 

sou - sou->next ; 
if (sou!=NULL) 
{ prev = tar; 

tar->next = new_libc_leakage_power () ; 
tar = tar->next; 

} 

} 

return (head) ; 

} 

/* ========== ==============================^ ^=== 

routine: f ree_libc_memory_rec ( ) 

void free_libc_meniory_rec (struct libc_memory_rec *ptr) 
{ 

if (ptr==NULL) return; 

f ree^mb _ptr ( (void *) ptr,2); 

#if DMP__MEM__ANY 

dmp__libc_memory_rec_msize_dec (12) ; 

dmp_libc_mem_size_dec (12) ; 
#endif 
} 

routine : nf ree_libc_memory_rec ( ) 

= = = = = . = = = = = = = = = = = = = = = = = = = = = := = = = = = = = = . = ^== = ^. = = =:. = = = = = = = . */ 

void nfree_libc_memory_rec (struct libc_memory_rec **pptr) 
{ struct libc_memory_rec *ptr= *pptr; 

if (ptr==NULL) return; 

f ree_mb_ptr ( (void *) ptr,2); 
#if DMP_MEM_ANY 

dTnp_libc_memory__rec_msize_dec (12) ; 
dmp_libc_mem_size_dec (12) ; 
#endif 

*pptr - NULL; 

} 
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void free_libc_piece_value_rec (struct libc_j>iece_value_rec *ptr) 

{ 

struct libcj)iece_value_rec *next; 

while (ptr!=NULL) { 

next = ptr->next ; 

f ree_mb_ptr ( (void *) ptr,9); 
#if DMP_MEM_ANY 

dmp_libc_j)iece_value_rec_msize__dec (40) ; 

dmp_l ibc_Tnem_s i ze__dec (40) ; 
#endif 

ptr - next ; 

} 

} 

/* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 

routine : nf ree_libc_piece_value_rec ( ) 

void nfree_libc_piece_value_rec (struct libcjpiece_value_rec **ppti 
{ struct libc j)iece_value_rec *ptr= *pptr; 

struct libc__piece__value__rec *next; 

while {ptrI=NULL) { 
next = ptr->next ; 
f ree_rTib_ptr ( (void *) ptr,9); 
#if DMP_MEM_ANY 

dmp_libc_piece_value_rec_msize__dec (4 0) ; 
dmp_libc_mem_size_dec (4 0) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

Struct libc_piece_value_rec * copy_libc_piece_value_rec (struct 
libc_piece_value_rec *sou) 

{ struct libc_piece__value_rec *tar , *head, *prev; 

if (sou==NULL) return (NULL) ; 
prev = NULL; 

head = tar = new_libc__piece_value_rec ( ) ; 
while (sou!=NULL) { 

tar->piece = sou->piece; 

tar->f all_delay_intercept = sou- >f all_delay_intercept ; 
tar->f all_nonpaired_twin = sou- >f all_nonpaired_twin; 
tar->f all__pin_resistance = sou->f all j>in_resistance; 
tar->f all_wire_resistance = sou - >fal l_wire_resi stance ; 
tar->rise_delay_intercept = sou->rise_delay_intercept; 
tar->rise__nonpaired_twin - sou- >rise_nonpaired_twin; 
tar->rise_pin_resistance = sou- >ri se_j)in_resi stance ; 
tar->rise_wire_resistance = sou->rise_wire_resistance; 
sou = sou->next ; 
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if (sou!=NULL) 
{ prev = tar; 

tar->next = new_libc_piece_value_rec ( ) ; 

tar = tar->next; 

} 

} 

return (head) ; 

} 



/* ======================================================= 

routine : f ree__libc_f loat_rec { ) 

======================================================= */ 

void free_libc_float_rec (struct libc_f loat_rec *ptr) 
{ 

if (ptr==MULL) return; 

f ree_i:nb__ptr ( (void *) ptr,0); 
#if DMP_MEM_ANY 

drap_libc_f loat_rec_msize_dec (4) ; 

dmp_libc_mem_size_dec (4) ; 
#endif 
} 

/* . = = = . = = = = = = = ... = = = = ^ = = = = = = = = = = = = = = = :=.== = = . = = = .^. = . = = = = = 

routine : nf ree__libc_f loat_rec ( ) 

void nfree_libc__float_rec (struct libc_f loat_rec **pptr) 
{ struct libc_f loat_rec *ptr= *pptr; 

if (ptr==NULL) return; 

f ree_mb_ptr ( (void *) ptr,0); 
#if D]yiP_MEM_ANY 

dTnp__libc__f loat_rec_msize_dec (4) ; 
dTnp__libc__mem_size_dec (4 ) ; 
#endif 

*pptr = NULL; 

} 

struct libc_f loat_rec * copy_libc_float_rec (struct libc_f loat_rec *sou) 
{ struct libc_f loat_rec *tar , *head, *prev; 

if (sou==NULL) return(NULL) ; 
prev = NULL; 

head = tar = new_libc_f loat_rec ( ) ; 

memcpy ( (char *)tar,(char *) sou, sizeof (struct libc_f loat_rec) ) ; 
return (head) ; 

} 

/* ======================================================= 

routine : f ree_libc__table_val_rec ( ) 

== — ^================================================= */ 

void free_libc_table_val_rec (struct libc_table_val_rec *ptr) 
{ int iO; 
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if {ptr==NULL) return; 

f ree_f loat_buf f er (ptr->indexl) ; 

f ree_f loat_buf f er (ptr->index2) ; 

f ree_f loat_buf f er (ptr->index3) ; 

f ree_f loat__buf f er (ptr-> values); 

f ree_mb j>tr { (void *) ptr^S); 
#if DMP_MEM_ANY 

dmp__libc__table_val_rec_msi2e__dec (24) ; 

dmp_libc_mem__si2e_dec (24) ; 
#endif 
} 



routine: nfree libc table val rec() 



void nfree_libc_table_val_rec (struct libc_table__val_rec **pptr) 
{ struct libc_table_val_rec *ptr= *pptr; 
int iO; 
if (ptr==NULL) return; 

f ree_f loat_buf f er (ptr-> indexl) ; 
f ree_f loat__buf f er (ptr->index2) ; 
f ree_f loat_buf f er (ptr->index3) ; 
f ree_f loat_buf f er (ptr-> values) ; 
f ree_mb_j)tr ( (void *) ptr,5); 
#if DMP__MEM_ANY 

dmp_libc_table_val_rec_msize_dec (24) ; 
dTnp__l ibc_Tnem_s i z e_de c ( 2 4 ) ; 
#endif 

*pptr = NULL; 

} 

struct libc__table_val_rec * copy__libc_table_val_rec (struct libc_table_val_rec 
*sou) 

{ struct libc_table__val__rec *tar , *head, *prev; 
int iO; 

if {sou==NULL) return(NULL); 
prev = NULL; 

head = tar = new_libc_table_val_rec ( ) ; 
tar->_tbl = sou->_tbl; 

tar->indexl = get_f loat_buf f er (sizeof_f loat_buf f er (sou->indexl) ) ; 

for (iO-0 ; iO<sizeof__f loat_buf f er (sou->indexl) ;iO++) 

tar->indexl [iO] = sou->indexl [iO] ; 
tar->index2 = get_f loat_buf f er ( sizeof_f loat_buf f er (sou->index2 ) ) ; 

for (iO = 0 ; iO<sizeof_f loat__buf f er (sou->index2) ;iO++) 

tar->index2 [iO] = sou->index2 [iO] ; 
tar->index3 = get_f loat_buf f er ( sizeof_f loat_buf f er (sou- >index3 ) ) ; 

for (iO=0 ; iO<sizeof_f loat_buf f er (sou->index3) ;iO++) 

tar->index3 [iO] = sou->index3 [iO] ; 
tar->scalar_val = sou->scalar_val; 

tar->values = get_f loat__buf f er (sizeof_f loat__buf f er (sou->values) ) ; 

for (iO=0 ; iO<sizeof_f loat_buf f er (sou->values) ; iO++) 
tar->values [iO] = sou->values [iO] ; 



return (head) ; 

} 



A-LIBC-210 



libc_mein.c 



routine : f ree_libc_timing_rec ( ) 



void free_libc_tiTning__rec (struct libc_timing__rec *ptr) 

{ 

struct libc_timing_rec *next; 

while {ptr!=MULL) { 

f ree_text_buf f er (ptr-> t_name) ; 

f ree_libc_bool_opr_rec (ptr->related_bus_pins) ; 

f ree_libc_name_list_rec (ptr->related_pin) ; 

f ree_libc_bool_opr__rec {ptr->when) ; 

f ree_libc_bool_opr_rec {ptr->when_start ) / 

f ree_libc_bool_opr_rec {ptr-> when_end) ; 

f ree_libc_piece_value_rec (ptr->piecewise) ; 

f ree_libc_table_val_rec (ptr->cell_rise) ; 

f ree_libc_table_val_rec (ptr-> cell_fall) ; 

f ree__libc_table__val_rec (ptr->rise_propagation) ; 

f ree_libc_table_val_rec (ptr-> f all_propagation) ; 

f ree__libc_table_val_rec (ptr->rise_transition) ; 

f ree_libc_table_val_rec (ptr->f all_transition) ; 

f ree_libc_table_val_rec (ptr->rise_constraint) ; 

f ree__libc_table_val__rec (ptr->f all_constraint) ; 
next = ptr->next ; 

f r€e_mb_ptr ( (void *) ptr,22); 
#if D]yiP_MEM_ANY 

dmp_libc_timing_rec_msize_dec (12 0) ; 

drap_libc_mem_size_dec (120) ; 
#endif 

ptr = next ; 

} 

} 

/* ==================================================== 

routine : nf ree_libc_timing__rec { ) 



void nfree_libc_timing_rec (struct libc_timing_rec **pptr) 
{ struct libc_timing_rec *ptr=: *pptr; 

struct libc_timing_rec *next; 

while (ptrl=NULL) { 

f ree_text_buf f er (ptr-> t_name) ; 

f ree_libc__bool_opr_rec (ptr-> related_bus_pins) ; 

f ree_libc_name_list_rec (ptr->related_pin) ; 

free_libc_bool_opr__rec (ptr-> when) ; 

f ree_libc_bool_opr_rec (ptr- >when_s tart) ; 

f ree_libc_bool_opr_rec (ptr- >when__end) ; 

f ree_libc__piece_value_rec (ptr->piecewise) ; 

f ree_libc_table_val_rec (ptr-> cell_rise) ; 

f ree_libc_table_val_rec (ptr->cell_f all) ; 

f ree_libc_table_val_rec (ptr->rise_propagation) ; 

f ree_libc_table_val__rec (ptr-> f all__propagation) ; 

f ree_libc_table_val__rec (ptr-> rise_transition) ; 

f ree_libc_table_val_rec (ptr->f all_transition) ; 



A-LIBC-211 



libc_mem.c 

f ree_libc_table__val_rec (ptr- >rise_constraint ) ; 

f ree_libc_table__val_rec {ptr-> f all_constraint ) ; 
next = ptr->next ; 

free_Tnb_jDtr ( (void *) ptr, 22); 
#if DMP_MEM_ANY 

dmp_libc_timing__rec_msize_dec (120) ; 

dmp_libc_mem_size_dec (12 0) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

Struct libc_timing__rec * copy_libc_timing_rec { struct libc_timing_rec *sou) 
( struct libc_tiining_rec *tar , *head, *prev; 

if (sou==NULL) return(NULL)/ 
prev = NULL; 

head = tar = new_libc_timing_rec ( ) ; 
while {soul=NULL) { 

tar->t__name = (char *) c opy_st ring (sou- >t_name) ; 

tar->_current_pin = sou->_current_pin; 

tar->edge_rate_sensitivity_f 0 sou->edge_rate_sensitivity_f 0 ; 

tar->edge_rate_sensitivity_f 1 - sou->edge_rate__sensitivity_f 1; 

tar- >edge_rate_sensitivity_rO = sou- >edge_rate_sensitivity__rO ; 

tar~>edge_rate__sensitivity_rl = sou->edge__rate_sensitivity_rl; 

tar->fall__resistance = sou->f all__resistance; 

tar->rise_resistance = sou->rise_resistance; 

tar->intrinsic_f all = sou->intrinsic_f all ; 

tar->intrinsic_rise = sou->intrinsic_rise; 

tar->related_bus_pins = (struct libc_bool__opr_rec *) 
copy_libc_bool_opr_rec (sou->related_bus_pins) ; 

tar->related_output_pin = sou->related_output_pin; 

tar->related_j)in = (struct libc_naTne__list_rec *) 
copy_libc__name_list_rec (sou- >related_j>in) ; 

tar->slope_f all = sou->slope_f all; 

tar->slope_rise = sou->slope_rise; 

tar->timing_type = sou->timing_type; 

tar->timing_sense = sou->timing_sense; 

tar->when = (struct libc_bool_opr_rec *) 

copy_libc_bool_opr_rec (sou->when) ; 

tar- >when_s tart = (struct libc_bool__opr_rec *) 
copy_libc_bool__opr_rec (sou- >when_s tart) ; 

tar->when_end = (struct libc__bool_opr_rec *) 
copy_libc_bool_opr_rec (sou- >when_end) ; 

tar->piecewise = (struct libc j)iece_value_rec *) 
copy_libc_piece_value_rec {sou->piecewise) ; 

tar->cell_rise = (struct libc_table_val_rec *) 
copy__libc_table_val_rec (sou- >cell_rise) ; 

tar->cell_fall = (struct libc__table_val_rec *) 
copy_libc_table_val_rec (sou->cell_f all) ; 

tar->rise__propagation = (struct libc_table_val_rec *) 
copy_libc_table_val__rec ( sou- >rise_j>ropagation) ; 

tar->f all_propagation = (struct libc_table_val__rec *) 
copy_libc_table_val_rec (sou- >f all__propagation) ; 

tar->rise__transition = (struct libc_table_val_rec *) 
copy_libc_table_val_rec (sou- >rise__transition) ; 
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tar->f all_transition = (struct libc_table_val_rec *) 
copy__libc_table_val_rec ( sou->f all_transition) ; 

tar->rise_constraint = (struct libc_table_val_rec *) 
copy_libc_table_val_rec { sou->rise_constraint ) ; 

tar->fall_constraint = (struct libc_table_val_rec *) 
copy_libc_table_val_rec (sou- >f all_constraint) ; 

sou = sou->next ; 

if (sou!=NULL) 

( prev = tar; 

tar->next = new_libc_timing_rec () ; 
tar = tar->next; 

} 

} 

return (head) ; 

} 



/* ======================================================= 

routine : f ree_libc_min_pulse_width_rec ( ) 

======================================================= */ 

void free_libc_min_pulse_width_rec (struct libc_min_pulse_width_rec *ptr) 
{ 

struct libc_min_pulse_width_rec *next; 

while (ptri=NULL) { 

f ree_libc_bool_opr_rec (ptr->when) ; 

next = ptr->next / 
f ree_mb_ptr ( (void *) ptr,3)/ 
#if DMP_MEM_ANY 

dmp__libc_min_pulse_width_rec_msize__dec (16) ; 
dmp__l ib c_mem_s i z e_de c ( 1 6 ) ; 
#endif 

ptr = next ; 

} 

} 

/* ======================================================= 

routine : nf ree_libc_inin_pulse_width_rec ( ) 

void nf ree_libc_min_pulse_width_rec (struct libc_Tnin_j>ulse_width_rec **pptr) 
{ struct libc_min_pulse__width_rec *ptr^ *pptr; 

struct libc_min_pulse_width_rec *next; 

while (ptr!=NULL) { 

f ree_libc_bool__opr_rec (ptr->when) ; 

next = ptr->next ; 
f ree_mbjptr ( (void *) ptr,3); 
#if DMP_MEN__ANY 

dTnp_libc_min_jpulse_width_rec_msi2e_dec (16) ; 
dTnp__libc_meTn_size_dec (16) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 
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} 

Struct libc__min_pulse_width_rec * copy_libc_min_jpulse_width_rec (struct 
libc_Tnin__pulse_width_rec *sou) 

( struct libc_min_pulse_width_rec *tar , *head, *prev; 

if (sou==NULL) return (NULL); 
prev = NULL; 

head = tar = new_libc_min__pulse_width_rec () ; 
while (soul=NULL) { 

tar->constraint_high = sou->constraint_high; 
tar->constraint_low = sou- >constraint_low; 
tar->when = (struct libc_bool_opr_rec *) 

copy_libc_bool_opr_rec (sou->when) ; 
sou = sou->next ; 
if (sou! -NULL) 
{ prev = tar; 

tar->next = new_libc_min_j>ulse_width_rec ( ) ; 
tar = tar->next; 

} 

} 

return (head) ; 

} 



/* ======================================================= 

routine : f ree_libc_minimura_period_rec ( ) 

========================== ^======================= */ 

void free_libc__minimum_jperiod_rec (struct libc_Tninimum_jDeriod_rec *ptr) 

{ 

struct libc_miniTnum__period__rec *next; 

while (ptr*=NULL) { 

f ree_libc_bool_opr_rec {ptr-> when) ; 

next = ptr->next ; 

f ree_mb_ptr ( (void *) ptr,2); 
#if DMP_MEM_ANY 

dTnp_libc_minimum_period__rec_msize_dec (12) ; 

dTnp_l ibc_meTn_s i ze_dec ( 12 ) ; 
#endif 

ptr = next ; 

} 

} 

routine : nf ree_libc___Tninimum_jperiod_rec () 

void nf re e_libc_minitnuTn__period_rec (struct libc_miniTnum_j)eriod_rec **pptr) 
{ struct libc__minimum_j>eriod__rec *ptr= *pptr; 

struct libc_i:ninimum_j>eriod_rec *next; 

while {ptr!=NULL) { 

f ree_libc_bool_opr_rec {ptr->when) ; 
next = ptr->next ; 
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f ree_mbjitr { (void *) ptr,2); 
#if DMP_MEM_ANY 

dmp_libc_minimuTn_j)eriod_rec_msize_dec (12) ; 

dmp_libc_mem_size_dec (12 ) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

Struct libc_minimum_j)eriod_rec * copy__libc_minimutn_jperiod_rec (struct 
libc_minimum_period_rec *sou) 

{ struct libc_minimum_period_rec *tar, *head, *prev; 

if ( sou==NULL) return (NULL) ; 
prev = NULL; 

head = tar = new_libc_minimum__period_rec () ; 
while (sou!=NULL) { 

tar->constraint = sou->constraint ; 
tar- > when = (struct libc_bool_opr_rec *) 

copy_libc_bool_opr_rec (sou->when) ; 
sou = sou->next ; 
if (souI=lsnJLL) 
{ prev = tar; 

tar->next = new_libc_miniTnum__period_rec () ; 
tar ~ tar->next; 

} 

} 

return (head) ; 

} 



/* ======================================================= 

routine : f ree_libc_routing_track_rec ( ) 
void free_libc_routing_track_rec (struct libc_routing_track_rec *ptr) 

{ 

struct libc_routing_track_rec *next; 

while (ptr!=NULL) { 

f ree_text_buf f er (ptr->layer_name) ; 

next = ptr->next ; 

f ree_mb_ptr ( (void *) ptr, 3); 
#if Diy[P_iy[EM_ANY 

dmp_libc_routing_track_rec_msize_dec (16) ; 

dmp_libc_mem_size_dec (16) ; 
#endif 

ptr = next ; 

} 

} 

/* ======================================================= 

routine: nf ree_libc_routing_track_rec () 

=_========^==^=^===============^====================^= */ 

void nfree_libc_routing_track_rec (struct libc_routing_track_rec **pptr) 
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{ struct libc_routing__track_rec *ptr= *pptr; 

struct libc_routing_track_rec *next; 

while (ptr!=NULL) { 

f ree_text_buf f er (ptr->layer_name) / 

next = ptr->next ; 
f ree_mbjptr ( (void *) ptr,3); 
#if DMP_MEM_ANy 

dmp_libc_routing_track__rec_msize_dec (16) ; 
dmp_libc_mem_size_dec (16) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

/* ================= ^=================================== 

routine : f ree_l ibc_def _eiitry_rec ( ) 

======================================================= */ 

void free_libc_def_entry_rec (struct libc_def_entry_rec *ptr) 
{ 

Struct libc_def_entry_rec *next; 

while (ptri=NUliLj) { 

f ree__text_buf f er (ptr-> def_name) ; 

next = ptr->next ; 

f ree_TTib__ptr ( (void *) ptr,2); 
#if DMP_ME]yi_ANY 

dmp_libc_def_entry_rec_msize_dec (12) ; 

dmp_libc_meTn_size_dec (12) ; 
#endif 

ptr = next ; 

} 

} 

/* =========================== — ^========================= 

routine : nf ree_libc_def_entry_rec ( ) 

void nfree_libc_def_entry__rec (struct libc_def_entry_rec **pptr) 
{ struct libc_def_entry_rec *ptr= *pptr; 

struct libc_def_entry_rec *next; 

while (ptrl=NULL) { 

f ree__text_buf f er (ptr-> def_name) ; 

next = ptr->next ; 
f ree_mb_ptr ( (void *) ptr,2); 
#if DMP_MEM_ANY 

dmp_libc_def_entry_rec_msize_dec (12) ; 
dmp_libc_mem_size_dec (12 ) ; 
ttendif 

ptr = next ; 

} 

*pptr = NULL; 
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} 

/* ======================================================= 

routine : f ree_libc__def ine_value_rec ( ) 

======================================================= */ 

void free_libc_define_value_rec (struct libc_def ine_value_rec *ptr) 
{ 

Struct libc_def ine_value_rec *next; 

while (ptr!=NULL) { 

f ree_text_buf f er (ptr->str_val) ; 

next = ptr->next ; 
f ree_Tnb_ptr ( (void *) ptr,3); 
#if DMP_MEM_ANY 

dmp__libc_def ine__value_rec_rasize_dec (16) ; 
dmp_libc__meTn_size_dec (16) ; 
#endif 

ptr = next ; 

} 

} 



routine: nfree libc define value rec () 



void nfree_libc_define_value__rec (struct libc_def ine_value_rec **ppt 
{ struct libc_def ine_value_rec *ptr= *pptr; 

struct libc_def ine__value_rec *next/ 

while (ptri=NULL) { 

f ree_text_buf f er (ptr->str_val) ; 

next = ptr->next ; 
f ree_mb_ptr ( (void *) ptr,3); 
#if DMP__MEM__ANY 

dmp_libc_def ine_value_rec_msize_dec (16) ; 
dmp_l ibc_mem__s i ze_dec (16) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

Struct libc_def ine_value__rec * copy_libc_def ine_value_rec (struct 
libc_def ine__value_rec *sou) 

{ struct libc_def ine_value_rec *tar , *head, *prev; 

if (sou==NULL) return (NULL); 
prev = NULL; 

head = tar = new_libc_def i nerval ue_rec () ; 
while (sou!=NULL) { 

tar->_def = sou->_def; 

tar->f loat_val = sou->f loat_val ; 

tar->str_val = (char *) copy_string (sou->str_val) ; 
sou = sou->next ; 
if (soul=NULL) 
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{ prev = tar; 

tar->next = new_libc_def ine_value_rec ( ) ; 
tar = tar->next; 

} 

} 

return (head) ; 

} 



routine : f ree_libc_glb_const_rec ( ) 
void free_libc_glb__const__rec (struct libc_glb_const_rec *ptr) 

{ 

struct libc_glb_const_rec *next; 

while {ptrl=NULL) { 

f ree__text_buf f er (ptr->gc_name) ; 

next = ptr->next ; 
f ree_mb_ptr ( (void *) ptr,2); 
#if DMP_MEM_ANY 

dmp_libc_glb_const_rec_msize_dec (12) ; 
dmp_libc_Tnem_size__dec (12) ; 
#endif 

ptr = next ; 

} 

} 

=_.. = = = . = = = = = = = . = = = = .=.^ = = = = = = = = = = = - = === = =: = = = ^ = = = ^ = = = = = = 

routine : nf ree_libc__glb_const_rec () 

void nfree_libc_glb_const_rec (struct libc_glb_const_rec **pptr) 
( struct libc_glb__const_rec *ptr= *pptr; 

struct libc_glb_const_rec *next; 

while (ptr!=NULL) { 

f ree_text__buf f er (ptr-> gc_name) ; 

next = ptr->next ; 

f ree_mb_ptr ( (void *) ptr,2); 
#if DMP__MEM_ANY 

^Tnp_libc_glb_const_rec__msize_dec (12) ; 

dTnp_libc_meTn_size_dec (12) ; 
#endif 

ptr = next ; 

} 

*pptr = NULL; 

} 

/* ======================================================= 

routine : f ree_libc_def_table_rec ( ) 

======================================================= */ 

void free_libc_def_table_rec {struct libc_def_table_rec *ptr) 
{ int iO; 
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if (ptr==NULL) return; 

if {ptr->gc_entry I=NULL) { 

for ( iO=0 ; iO<sizeof_ptr_buf f er {ptr->gc_entry) ;iO++) 

f ree_libc_glb_const__rec (ptr- >gc_entry [iO] } ; 
f reejptr_buf f er (ptr->gc_entry) ; 

} 

if {ptr->libl=NULIi) { 

for (iO=0 ; iO<sizeof_ptr_buf f er {ptr->lib) ;iO-f+) 

f ree_libc_def_entry_rec (ptr->lib [iO] ) ; 
f ree_ptr_buf f er {ptr- >lib) ; 

} 

if (ptr-> celll=NULL) { 

for (iO = 0 ; iO<sizeof j»tr_buf f er {ptr-> cell);iO++) 

f ree_libc_def_entry_rec (ptr-> cell [iO] ) ; 
f ree_ptr_buf f er {ptr- > cell); 

} 

if {ptr->pin!=NULL) { 

for (iO=0;iO<sizeof_jptr_buf fer {ptr->pin) ;iO+H-) 

f ree_libc_def_entry_rec (ptr->pin [iO] ) ; 
f ree^tr_buf f er {ptr->pin) ; 

} 

f ree_mbjptr ( (void *) ptr, 3); 
#if DMP_MEM_ANY 

dmp_libc_def_table_rec_msize_dec (16) ; 

dmp_l i b c_meTn_s i z e_de c {16) ; 
#endif 
} 

routine : nf ree_libc_def_table_rec () 

= = = = = = = = = = = = = = = = . = = = = = = = = = = = = = = = = = = = = */ 

void nfree_libc__def_table_rec (struct libc_def_table_rec **pptr) 
{ struct libc_def_table_rec *ptr= *pptr; 
int iO; 
if (ptr==:NULL) return; 

if (ptr->gc_entry !=NULL) { 

for { iO = 0 ; iO<sizeof_ptr_buf f er (ptr- >gc__entry) ;iO + + ) 

f ree_libc_glb_const_rec (ptr->gc_entry [iO] ) ; 
f ree_ptr_buf f er {ptr->gc_entry) ; 
} 

if (ptr-> libi-NULL) { 

for (iO=0 ; iO<sizeof_ptr_buf f er (ptr-> lib) ;iO++) 

f ree_libc_def_entry_rec (ptr-> lib [iO] ) ; 
f ree_ptr_buf f er (ptr-> lib) ; 
} 

if (ptr-> cell!=NULL) { 

for (iO=0;iO<sizeof_ptr_buf fer (ptr-> cell);iO++) 

f ree_libc_def_entry_rec (ptr-> cell [iO] ) ; 
f reejptr_buf f er (ptr-> cell); 
} 

if (ptr-> pinI=NULL) { 

for (iO=0 ; iO<sizeof_ptr_buf f er (ptr-> pin);iO++) 

f ree_libc_def_entry_rec (ptr-> pin [iO] ) ; 
f ree_ptr__buf f er (ptr- > pin); 

} 

f ree_mb_ptr ( (void *) ptr,3); 
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#if DMP_ME!y[_ANY 

dmp_libc_def_table_rec_msize_dec (16) ; 

dmp_libc_mem_size_dec (16) ; 
#endif 

*pptr = NULL; 

} 
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#ifndef __H_libc_mem_DEF 
#define _H_libc_mem_DEF 1 
#include <stdio.h> 
# include " dTnp_ut i 1 . h " 
#include " libcds . h" 
#if DMP_MEM_ANY 

struct any_unit_rec *new_any_unit_rec (void) ; 
struct libc_name_list_rec *new_libc_name_list_rec (void) ; 
struct libc_name__list_list *new__libc__name_list_list (void) ; 
struct libc_f loat_list__rec *new__libc__f loat_list_rec (void) / 
struct libc_f loat_list_list *new_libc_f loat_list_list (void) ; 
struct libc_def ine_rec *new_libc_def ine_rec (void) ; 
struct libc_cell_area_rec *new_libc_cell_area_rec (void) ; 
struct libc_k_f actor_rec *new__libc_k_f act or_rec (void) ; 
struct libc_lib_rec *new_libc__lib_rec (void) ; 

struct libc_lu_table_teTnplate_rec *new_libc_lu_table_template__rec (void) ; 

struct libc_oc_power_rail_rec *new__libc_oc__power_rail_rec (void) ; 

struct libc_operating__condition_rec *new_libc__operating_condition_rec (void) , 

struct libcjiower_supply_rec *new_libcjpower__supply_rec (void) ; 

struct libc_tiTning__range_rec *new_libc_timing_range_rec (void) ; 

struct libc_type_rec *new_libc_type_rec (void) ; 

struct libc__f anout_length_rec *new_libc_f anout_length_rec (void) ; 
struct libc_wire_load_rec *new_libc_wire_load_rec (void) ; 

struct libc_wire_load_f rom_area__rec *new_libc_wire_load_f rom__area_rec (void) , 
struct libc_wire_load_selection_rec *new_libc_wire_load_selection_rec (void) , 
struct libc_cell__rec *new__libc_cell_rec (void) ; 

struct libc_memory_write_rec *new_libc__Tnemory_write_rec (void) ; 

struct libc__bool_opr_rec *new_libc_bool_opr_rec (void) ; 

struct libc_j>in_rec *new_libc jin__rec (void) ; 

struct libc_f f_latch_rec *new_libc_f f_latch_rec (void) ; 

struct libc_internal_power *new_libc_internal__power (void) ; 

struct libc_leakage jower *new_libc_leakage_power (void) ; 

struct libc_memory_rec *new_libc_memory_rec (void) ; 

struct libc_j>iece_value_rec *new_libc_piece_value_rec (void) ; 

struct libc__f loat_rec *new_libc_f loat_rec (void) ; 

struct libc_table_val_rec *new_libc_table_val_rec (void) ; 

struct libc_timing_rec *new__libc_timing_rec (void) ; 

struct libc_min_j5ulse_width_rec *new_libc_min__pulse_width_rec (void) ; 
struct libc_minimumjperiod_rec *new_libc_minimum_j)eriod_rec (void) ; 
struct libc_routing_track_rec *new_libc_routing_track_rec (void) ; 
struct libc_def_entry_rec *new_libc_def__entry_rec (void) ; 
struct libc_def ine_value_rec *new__libc_def ine_value__rec (void) ; 
struct libc_glb_const_rec *new_libc_glb_const_rec (void) ; 
struct libc_def_table__rec *new_libc_def_table__rec (void) ; 
#else 

#define new_any__unit_rec ( ) (struct any_unit_rec *) get__mb_ptr (1) 
#define new_libc_name_list_rec ( ) (struct libc__name_list_rec *) get_mb_ptr (1) 
#define new_libc_name_list_list ( ) (struct libc_name_list_list *) 
get_mb_ptr (2) 

#define new_libc_f loat_list_rec ( ) (struct libc_f loat__list_rec *) 
ge t_mb_jp t r ( 1 ) 

#define new_libc_f loat_list_list ( ) (struct libc_f loat_list_list *) 
get_mb_ptr (1) 

#define new_libc_def ine_rec ( ) (struct libc_def ine_rec *) get_mb jitr (3 ) 
#define new_libc_cell_area_rec () (struct libc_cell_area_rec *) get__mb_ptr (2 ) 
#define new_libc_k_f actor_rec ( ) (struct libc_k__f actor_rec *) get_mb_j)tr (2 9) 
#define new_libc__lib_rec ( ) (struct libc_lib_rec *) get_mb_ptr (2 8) 
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#define new_libc_lu_table_template_rec () (struct libc_lu_table_template_rec 
*) get_mb_ptr (7) 

#define new_libc_oc_power_rail_rec ( ) (struct libc_oc_power_rail__rec *) 
get_mb_ptr (2) 

#def ine new_libc_operating_condition_rec () (struct 
libc_operating_condition_rec *) get_mb_ptr (6) 

#define new_libc_power_supply_rec ( ) (struct libc_power_supply_rec *) 
get_mb__ptr (3) 

#define new_libc_timing__range_rec ( ) (struct libc_timing_range_rec *) 
get_mbj>tr (3) 

#define new_libc_type_rec { ) (struct libc_type_rec *) get_mb_ptr (5 ) 
#define new_libc_f anout_length_rec ( ) (struct libc_f anout_length_rec *) 
get_Tnb_ptr ( 8 ) 

#define new_libc_wire_load__rec ( ) (struct libc_wire_load_rec *) get_mb_ptr (6) 
#define new_libc_wire_load_f rom_area__rec { ) (struct 
libc_wire_load_f rom_area_rec *) get__mb_j)tr (3 ) 
#define new_libc_wire_load_selection_rec ( ) (struct 
libc_wire_load_selection_rec *) get_mb_ptr (2) 

#define new_libc_cell__rec ( ) (struct libc_cell_rec *) get_mb_ptr (23 ) 
#define new_libc_memory_write_rec ( ) (struct libc_memory_write_rec *) 
get_mb_j)tr (2 ) 

tdefine new_libc__bool_opr_rec ( ) (struct libc_bool_opr__rec *) get_mb_j)tr (3) 
tdefine new_libc_pin_rec () (struct libc_jpin_rec *) get_Tnb jtr (27) 
#define new_libc_f f_latch_rec ( ) (struct libc_f f_latch_rec *) get_mb_ptr (15) 
#define new_libc_internaljpower ( ) (struct libc_internal_power *) 
get_mb_j>tr (9) 

#define new_libc_leakage_jpower ( ) (struct libc_leakage_power *) get_mb_j)tr (2 ) 
#define new_libc_memory_rec { ) (struct libc_memory_rec *) get__mb_j)tr (2 ) 
#define new_libc_piece_value_rec () (struct libc_piece__value_rec *) 
get_mb_ptr (9) 

#define new_libc_f loat_rec ( ) (struct libc_f loat_rec *) get_mb_jptr (0) 
#define new_libc_table_val_rec ( ) (struct libc_table_val_rec *) get_Tnbjptr (5) 
#define new_libc_tiTning_rec () (struct libc_timing_rec *) get_mb_ptr (22) 
#define new_libc_minjpulse_width__rec { ) (struct libc_min_pulse_width_rec *) 
get_Tnb_ptr (3) 

#define new_libc_miniTnum_j5eriod_rec ( ) (struct libc_minimum_j5eriod_rec *) 
get_mb_jptr (2) 

#define new_libc_routing_track_rec ( ) (struct libc_routing__track_rec *) 
get_mb j>tr ( 3 ) 

#define new__libc_def_entry_rec ( ) (struct libc_def__entry_rec *) get_mb_ptr (2) 
tdefine new__libc_def ine_value_rec () (struct libc_def ine_value_rec *) 
get__TTibj>tr (3) 

#define new_libc_glb_const_rec ( ) (struct libc_glb_const_rec *) get_Tnb__ptr (2) 
#define new_libc_def_table_rec ( ) (struct libc_def_table_rec *) get_mb_ptr (3) 
#endif 

void free_any__unit_rec (struct any_unit__rec *) ; 

void nfree_any_unit_rec (struct any_unit_rec **) ; 

void free_libc_name_list_rec (struct libc_name_list_rec *) ; 

void nfree_libc_name_list_rec (struct libc_name_list_rec **) ; 

struct libc_name_list_rec * copy_libc_name_list_rec (struct libc_naTne_list_rec 
*) ; 

void free_libc_name_list_list (struct libc_name_list_list *) ; 
void nfree_libc_naTne_list_list (struct libc_name_li stylist **) ; 
void free_libc_float_list_rec (struct libc_f loat_list_rec *) ; 
void nfree_libc_float_list_rec (struct libc_f loat_list_rec **) ; 
void free_libc_float_list_list (struct libc_f loat_list__list *) ; 
void nfree libc float list list (struct libc f loat_list__list **) ; 
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void free_libc_define_rec (struct libc_def ine_rec *) ; 
void nfree_libc_define_rec {struct libc_def ine_rec **) ; 
void free_libc_cell_area_rec (struct libc_cell_area_rec *) ; 
void nfree_libc_cell_area_rec (struct libc_cell_area_rec **) ; 
void free_libc_k_factor_rec (struct libc_k_f actor_rec *) ; 
void nfree_libc_k_factor_rec (struct libc_k_f actor_rec **) ; 
void free_libc_lib_rec (struct libc_lib_rec *) ; 
void nfree_libc_lib_rec (struct libc_lib_rec **); 

void free_libc_lu_table_template_rec (struct libc__lu_table_template_rec *) ; 

void nfree_libc_lu_table_template_rec (struct libc_lu_table_template_rec **) ; 

void free_libc_oc_power_rail_rec (struct libc_oc_power__rail_rec *) ; 

void nfree_libc_oc_power_rail_rec (struct libc_oc_j)Ower_rail__rec **) ; 

void f ree_libc_operating_condition_rec (struct libc_operating_condition_rec 

*); 

void nf ree_libc_operating_condition_rec (struct libc__operating_condition_rec 
**) ; 

void f ree_libc__power__supply_rec (str^ict libc_power_supply_rec *) ; 
void nfree_libc_power_supply_rec (struct libc__power_supply_rec **) ; 
void free_libc_timing_range_rec (struct libc_timing_range_rec *) ; 
void nfree_libc_timing_range__rec (struct libc_timing_range_rec **) ; 
void free_libc_type_rec (struct libc_type_rec *) ; 
void nfree_libc_type_rec (struct libc_type_rec **) ; 

void free_libc_fanout_length_rec (struct libc_f anout_length_rec *) ; 
void nfree__libc_fanout_length_rec (struct libc_f anout__length_rec **) ; 
void free_libc_wire_load__rec (struct libc_wire__load_rec *) ; 
void nfree_libc_wire_load_rec (struct libc_wire_load_rec **) ; 

void f ree_libc_wire_load_f rom__area_rec (struct libc_wire_load_f rom_area_rec 
M ; 

void nf ree_libc_wire_load_f rom_area_rec (struct libc_wire_load_f rom_area_rec 
**); 

void f ree_libc_wire_load_selection_rec (struct libc__wire_load_selection_rec 
*) ; 

void nf ree_libc_wire_load_selection_rec (struct libc_wire_load_selection__rec 
**) ; 

void free_libc_cell_rec (struct libc_cell__rec *) ; 

void nfree_libc__cell_rec (struct libc_cell_rec **) ; 

void free_libc_memory_write_rec (struct libc_memory__write_rec *) ; 

void nfree_libc_memory_write_rec (struct libc_memory_write_rec **) ; 

struct libc_memory_write_rec * copy_libc_meTnory_write_rec (struct 

libc_memory_write_rec *) ; 

void free_libc_bool__opr_rec (struct libc_bool_opr_rec *) / 
void nfree_libc_bool_opr_rec (struct libc_bool_opr_rec **) ; 

struct libc_bool_opr_rec * copy_libc_bool_opr_rec ( struct libc_bool_opr__rec 
M; 

void free_libcjpin_rec (struct libc_pin_rec *) ; 
void nfree_libcj>in_rec (struct libc_pin_rec **) ; 
struct libc__pin_rec * copy_libc_pin_rec (struct libc__pin_rec *) ; 
void free_libc_ff_latch_rec (struct libc_f f _latch_rec *) ; 
void nfree_libc_ff_latch_rec (struct libc_f f_latch_rec **) ; 
void free__libc_internal_power (struct libc_internal_power *) ; 
void nfree_libc_internal_power (struct libc_internal_power **) ; 
struct libc_internal_jpower * copy_libc_internal_power { struct 
libc_internal__power *) ; 

void free__libc_leakage__power (struct libc_leakage_power *) ; 
void nfree_libc_leakagejpower (struct libc_leakage_power **) ; 

struct libc_leakage_power * copy_libc__leakage_jpower (struct libc_leakage_power 
*) ; 
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void free_libc_niemory_rec (struct libc_memory_rec *) ; 

void nfree_libc_memory_rec (struct libc_memory~rec **) ; 

void free_libc_piece_value_rec (struct libc_piece_value_rec *) ; 

void nfree_libc_j)iece_value__rec (struct libc_piece_value_rec **) ; 

struct libc_piece_value_rec * copy_libc_piece_value_recTstruct 

libc_piece_value_rec *) ; 

void free_libc__float__rec (struct libc_f loat_rec *) ; 
void nfree_libc_float_rec (struct libc_f loat_rec **) ; 

struct libc_float_rec * copy_libc_f loat_recTstruct 1 ibc_f loat_rec *) ; 
void free_libc_table_val_rec (struct libc_table_val_rec *) ; 
void nfree_libc_table_val_rec (struct libc_table_val~rec **) ; 

struct libc_table_val_rec * copy_libc_table_val~recTstruct Ubc_table val rec 

void free_libc_tiTning_rec (struct libc_timing_rec *) ; 
void nfree_libc_timing_rec (struct libc_timing_rec **) ; 

struct libc_timing_rec * copy_libc_timing_rec (struct iibc__timing_rec *) ; 
void free_libc_minjpulse__width_rec (struct libc_min_pulse_width rec *) • ' 
void nfree_libc_min_pulse_width_rec{ struct libc__min_j>ulse_width_rec **) - 
struct libc_min_pulse_width_rec * copy_libc_minj)ulse_width rec (struct 
libc__min_pulse_width_rec *) ; ~" 
void free_libc_minimum__period_rec (struct libc_minimum_j>eriod_rec *) - 
void nfree_libc_minimum_j>eriod_rec (struct libc_minimum_j)eriod_rec **) ; 
struct libc_miniTnuni_period_rec * copy_libc_minimum_j)eriod_rec (struct 
libc_minimum_j>eriod_rec *) ; 

void free_libc_routing_track_rec (struct libc__routing_track_rec *) ; 
void nfree_libc_routing_track_rec (struct libc_routing_track_rec **) ; 
void free_lifoc_def_entry__rec (struct libc_def_entry_rec *) ; 
void nfree_libc_def_entry_rec (struct libc_def_entry~rec **); 
void free_libc_define_value__rec (struct libc_def ine~value__rec *) ; 
void nfree_libc_define_value_rec (struct libc_def ine_value_rec **) ; 
struct libc_define_value_rec * copy_libc_define_value_rec (struct 
libc_def ine_value_rec *) ; 

void free_libc_glb_const_rec (struct libc_glb_const_rec *) ; 
void nfree_libc_glb_const_rec (struct libc_glb_const_rec **) ; 
void free_libc_def_table_rec (struct libc_def_table_rec *) ; ' 
void nfree_libc_def_table_rec (struct libc def table rec **) ■ 
#endif ~ 
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#include "libc_def.h" 

/* =. = = = = = = = =: = = = .. = = = == = = =. = = = = ^ = = . = = = . = . = = = = = = = = . = .= */ 

publi c 

libc_bool_opr_rec *libc_opr_liandle ( 

libc_bool_type_E op_type, 

int value) 
{ libc__bool_opr_rec * bor; 

bor = new_libc_bool_opr_rec 0 ; 
bor->type ~ op_type; 
if (op_type ID_B) 

bor->u. id_name = (text_buffer *) value; 
else 

bor ->u. value = value; 
return (bor) ; 

} 

public 

void libc_opr_id__print ( 

FILE *outp, 

char *name; 

libc_cell__rec *cell, 

int idx) 
( libc_pin_rec *pin; 

libc_f f_latch_rec *ffp; 

pin = libc_cell_find_j)in_by_naTne {cell , naine, -99999) ; 

if (pin == NULL) { /* (idx >= 0} and (this ID_B is not a bundle or 

bus) */ 

/★ for index of ff_latch (IQ,IQN) */ 

if (idx > -10000) { 
#if 1 

fprintf (outp, eel 1 - >__t 1 ib - >bus_naming_style, name , idx) ; 

#else 

for {ffp=cell->ff_latch;ffp;ffp=ffp->next) { 

if (strcmp (cell- >ff_latch- >Q_name, name) ==0 || 
strcmp (cell->f f_latch->QN_name, name) ==0) { 
fprintf (outp, cell->_tlib- >bus_naming_style, name, idx) ; 

return; 

} 
} 

fprintf (outp, "%s" , name) ; 

#endif 

} 

else 

fprintf (outp, "%s", name) ; 

} 
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else { 

if {pin->is_bus) 

fprintf (outp; cell- >_t lib- >bus_naming_style, name , idx) ; 
else if (pin->members != NULL) { 

1 i b c_name_l i s t_rec * np ; 

int i ; 



for (np=pin->meTTibers , i=0 ;np ! =NULL;np=np->next , i-»-+) { 
if {i idx) 
break; 

} 

assert (np l~ NULL) ; 

fprintf (outp, "%s" , np->name) ; 

} 

else 

fprintf {outp, "%s",name) ; 

} 

} 

/* */ 



public 

void libc_opr_print ( 
FILE *outp, 

libc_bool_opr__rec *opr, 
libc_cell_rec *cell, 
int idx) 
{ libc_pin_rec *pin; 



if (opr == NULL) 

returns- 
switch (opr->type) { 
case XOR__B : 
case OR_B : 
case AND_B : 

if (opr->L->type >= opr->type) 
libc_opr_jprint (outp, opr->L, cell, idx) ; 
else { 

fprintf (outp, " (") ; 
libc_opr_jprint (outp, opr- >L; cell , idx) ; 
fprintf (outp, ") ") / 

} 

fprintf (outp, "%s" , (opr- >type AND_B) ? " " : (opr->type == OR_B) ? " 

ir . rr ^ ri J , 

if {opr->R->type >= opr->type) 
libc_op reprint (outp, opr- >R, cell , idx) ; 
else { 

fprintf (outp, " (") ; 
libc_opr_print (outp, opr- >R, cell, idx) ; 

fprintf (outp, ") ") ; 

} 

breaks- 
case NOT_B : 

fprintf {outp, " ! ") ; 
if (opr->R->tYpe >= NOT_B) 
libc_opr_print (outp, opr- >R, cell , idx) ; 
else { 
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fprintf (outp, " (") ; 
libc_opr_print (outp, opr->R, cell , idx) ; 
fprintf (outp, ") ") ; 

} 

breaks- 
case ID_B : 

libc_opr_id_j)rint {outp, opr~>u. id_name, cell , idx) ; 

break; 
case INDEX_B : 

libc_op reprint (outp , opr->L, cell, opr->R->u. value) ; 

break; 
case ZERO_B : 
case ONE_B : 
case CONST__B : 

fprintf (outp, "%d" , opr->u. value) ; 

break; 

} 

} 

/* = = =:= = = = = == = = :. = = == = = = = =. = = :. = = = = =: = ^ = = .: = :. = =. = = ^ = = = = ^ = =, = = := */ 

public 

void libc_opr_power_whenj>rint ( 
FILE *outp, 

libc_bool_opr_rec *opr, 
libc_cell__rec *cell, 
int idx) 
{ libc_j)in_rec *pin; 

if (opr == NULL) 

return; 
switch (opr->type) { 

case XOR_B : 

case OR_B : 

case AND_B : 

if {opr->L->type >= opr->type) 

libc_opr_jpower_when_jirint (outp, opr->L, cell , idx) ; 
else { 

fprintf (outp, " (") ; 
libc__opr_j>ower__when_j)rint (outp, opr- >L, cell , idx) ; 

fprintf (outp, ") ") ; 

} 

fprintf (outp, "%s" , {opr->type == A3S[D_B) ? : (opr->tYpe === OR_B) ? " + " 

: """); 

if (opr->R->type >- opr->type) 

libc_opr_power_when_print (outp, opr- >R, cell , idx) ; 
else { 

fprintf (outp, " {") ; 
libc_opr_power_when_j>rint (outp, opr- >R, cell , idx) ; 

fprintf (outp, ") ") ; 

} 

break; 
case NOT_B : 

if {opr->R->type =~ ID_B) { 

1 ibc_opr_i d_j)r int ( ou tp , opr - >R - >u . id_name , ce 1 1 , idx ) ; 
fprintf (outp, "0") ; 

} 
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else { 

fprintf (outp, " t ") ; 

if (opr->R->type >= NOT_B) 

lihc_opr_power_whenjprint (outp , opr- >R, cell, idx) ; 
else { 

fprintf (outp, " { ") ; 

libc_opr_power_when_print (outp, opr->R, cell , idx) ; 
fprintf (outp, ") ") ; 

} 

} 

break; 
case ID_B : 

libc_opr_id_print (outp, opr->u. id__name, cell , idx) ; 
fprintf (outp, "1") ; 
break; 
case INDEX_B : 

1 ibc_opr_power_when_print (outp , opr- >L , cell , opr- >R- >u , value ) 

break; 
case ZERO_B : 
case ONE_B : 
case CONST_B : 

fprintf (outp, "%d" , opr->u. value) ; 

break ; 

} 

} 
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#include "libc def.h" 



static 

char *libc_time_delay_str ( 
delay__model__E de) 

{ 

switch (de) { 

case GENERIC_ECL : 

case GENERIC_CMOS : 

case TABLE_L0OKUP : 

case CM0S2 : 

case PIECEWISE_CMOS : 

deafult : 

assert (0) ; 

} 



return { '•generic_ecl ) ; 
return ( "generic_cmos" ) ; 
return ( "table_lookup" ) ; 
return ( "cinos2 " ) ; 
return ( "piecewise_cmos" ) 



public 

void libc_time_delay_Tnodel ( 

delay_Tnodel_E de) 
{ char msg [256] ; 

if (tech_lib->delay_model == XJNKNOW_M) { 

if (de 1= GENERIC_CMOS && de 1= TABLE_LOOKUP) { 

sprintf (msg, "This statement belongs to %s delay model An 
only generic_cmos and table_lookup delay model are supported.", 
libc_time_delay_str (de) ) ; 
libcerror (msg) ; 

} 

tech_lib'->delay_model = de; 

} 

else if {tech_lib->delay_model == de) 

return ; 
else { 

sprintf (msg, "\"%s\" statement in \"%s\" delay model.", 

libc_time_delay_str (de) , libc_time_delay_str (tech_lib- >delay_model) 
libcerror (msg) / 

if (tech_lib->delay_model !- GENERIC^CMOS 
tech_lib->delay_model != TABLE_LOOKUP) 
tech_lib->delay_model = de; 

} 



public 

void libc time init { 



==== */ 
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text_buffer *timing_name) 



lib__timing = new_libc_timing_rec ( ) ; 
lib_tiniing- >t_name = timing_name/ 
^i^_timing->_currentjpin = lib__pin; 

j± set default value */ 

lib_timing->intrinsic_fall = tech_lib->def ault_intrinsic_f all ; 
lib_timing->intrinsic_rise = tech_lib->def ault_intrinsic_rise; 
lib_timing- >slope_f all = tech_lib->default_slope_fall; 
lib_timing->slope_rise = tech_lib->def ault_slope_rise; 
if {lib_pin->direction -= INOUT_E) { 



} 



lib_timing- >f all_resistance 
lib_timing->rise_resistance 



else { 

lib_timing->f all__resistance 
lib_timing->rise_resistance 



tech__lib->default_inout_pin_fall_res; 
tech_lib->def ault_inout_pin_rise_res; 



= tech_lib->default_output_pin_f all_res 
= tech_lib->def ault_output_pin_rise_res 



public 

void libc_time_f inish(void) 
{ char msg [128] , *type_name; 
int t_type; 

switch {lib__timing->timing_type) { 
case COMBINATIONAL_T : t_type 

break ; 
case RISING_EDGE_T : 

break; 
case FALLING_EDGE__T : 

break; 
case PRESET_T : 

break; 
case CLEAR T : 



t__type 
t__type 
t__type 
t_type 



1; type_name = "combination"; 
1 ; type_name = " r i s ing_edge " ; 
1; type_name = "f alling_edge" ; 
3; type_name = "preset"; 
3; type_name = "clear"; 
type_naTne - 



break; 

case THREE_STATE_DISABLE_T : t_type = 1 
"three_state_disable" ; break; 

case THREE_STATE_ENABLE_T : t_type = 1; type_name = 

"three_state_enable" ; break; 



case HOLD_RISING_T : 

break; 
case HOLD_FALLING_T : 

break; 
case SETUP_RISING_T : 

break; 
case SETUP__FALLING_T : 

break; 

case RECOVERY_RISING_T : 

break; 
case RECOVERY_FALLING_T 

break; 



t_type = 4; type_nanie = "hold_rising" ; 

t_type = 4; type_name = "hold_f ailing" ; 

t_type = 4; type__name = " setup__rising" ; 

t_type = 4; type_name = "setup_f ailing" ; 

t_type = 4; type_name = "recovery_rising" ; 

t_type = 4; type_name = "recovery_f ailing" ; 
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case REM0VAL_RISING_T : t_type = 4; type_name = "removal_rising" ; 

breaks- 
case REMOVAL_FALLING_T : t_type = 4; type_name = "removal_f ailing" ; 
break; 

case SKEW_RISING_T : t_type = 2; type_natne = "skew_rising" ; 
break; 

case SKEW_FALLING_T : t_type - 2; type_name ^ "skew_f ailing" ; 
break; 



case NON_SEQ_HOLD_RISING T : 


t__type = 


2; 


type_ 


_name = 


'non_secj_hold_rising" ; break; 










case NON_SEQ_HOLD FALLING T : 


t_type = 


2; 


type_ 


_name = 


non_seq_hold_f ailing" ; break; 










case NON_SEQ_SETUP RISING T : 


t_type = 


2; 


type_ 


_name = 


non_seq_setup_rising" ; break; 










case NON_SEQ__SETUP FALLING T 


t_type = 


2; 


type_ 


_name = 


non_seq_setup_f ailing" ; break; 








case NOCHANGE_HIGH_HIGH T : 


t_type = 


2; 


type_ 


_name = 


nochange_high__high " ; break ; 










case NOCHANGE__HIGH_LOW T : 


t_type = 


2; 


type_ 


_name = 


nochange__high_low" ; break; 










case NOCHANGE_LOW_HIGH_T : 


t_type = 


2; 


type_ 


_naTne = 


nochange_low_high" ; break; 











case NOCHANGE_LOW_LOW_T : t_type = 2; type__name - "nochange_low_low" ; 
break; 



default : 

libcerror {"timing_type in timing group is not specified."); 
return; 

} 



if (tech_lib->delay_model 1= TABLE__L0OKUP) 
return; 



if (t_type == 1) { 

if (lib_timing->cell_rise == MULL lib timing->rise propaaation == 
NULL) { - ^ ^ 

sprintf (msg, "cell_rise or risejpropagation table is required for 
timing_type %s . " , type_name) ; 
libcerror (msg) ; 

} 

else if (lib_timing->cell_rise != NULL lib timing->rise propaaation '= 
NULL) { - ^ ^ • 

sprintf (msg, "only one table is allowed of cell_rise or rise_propagation 
tables for timing_type %s . " , type_name) ; 
libcerror (msg) ; 

} 

if (lib__timing->cell_fall == NULL && lib_timing- >f all propagation 
NULL) { 

sprintf (msg, "cell_fall or f all_propagation table is required for 
timing_type %s . " , type_name) ; 
libcerror (msg) ; 

} 

else if (lib_timing->cell_fall == NULL && lib timing->fall propagation 
NULL) { ~ ^ ir- =5 

sprintf (msg, "only one table is allowed of cell_fall or f all_propagation 
tables for timing_type %s . " , type_name) ; 
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libcerror (msg) ; 

} 

else if (lib_timing->cell_rise != NULL lib_timing- >cell_f all == NULL) 

sprintf (msg, "cell_fall table is required for timing_type 
%s . " , type_name) ; 

libcerror (msg) ; 

} 

else if {lib_tiTning->rise_propagation != NULL lib_timing- 
>f all propagation == NULL) { 

sprintf (msg, "fall_j)ropagation table is required for timing__type 
%s . , type__name ) ; 

libcerror (msg) ; 

} 

if (lib_timing->rise_transition -= NULL) { 

sprintf (msg, "rise_transition table is required for timing_type 
%s . " , type_name) ; 

libcerror (msg) ; 

} 

if (lib_timing->f all_transition == NULL) { 

sprintf (msg, "fall__transition table is required for timing_type 
%s . " , type_name ) ; 

libcerror (msg) ; 

} 

} 

else if (t_type ==2) { 

if (lib_timing->rise__constraint == NULL) { 

sprintf (msg, "rise_constraint table is required for timing_type 
%s . " , type_name) ; 

libcerror (msg) ; 

} 

if (lib_timing->fall_constraint == NULL) { 

sprintf (msg, "fall_constraint table is required for timing_type 
%s . " , type_name) ; 

libcerror (msg) ; 

} 

} 

else if (t_type == 3) { 

if {lib_timing->cell_rise NULL lib_timing- >rise ^propagation == NULL 

lib_timing->cell_f all == NULL lib_timing- >f all_j)ropagation == 

NULL) { 

sprintf {msg, "delay or propagation table is required for timing_type 
%s . " , type_name) ; 

libcerror (msg) ; 

} 

if (lib_timing->rise_transition == NULL lib_timing- >f all__transition == 
NULL) { 

sprintf (msg, "transition table is required for timing_type 
%s . " , type_name) / 

libcerror (msg) ; 

} 

} 

else if (t_type == 4) { 

if (lib_timing->rise_constraint == NULL && lib_timing- >f all_constraint == 
NULL) { 
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sprintf (msg, "constraint table is required for tiTning_type 
%s . " , type_name) ; 

libcerror (msg) ; 



) 



) 



} 



public 

void libc_time_piecewise ( 

int piece, 

int field, 

float value) 
{ libc_piece_value_rec *new^ *p, *prev=NULL; 

/* search first */ 

for (p= 1 ib_t iming - >piecewise ; p 1 =NULL ; prev=p , p=p - >next ) { 
if {p->piece == piece) 

goto insert_value; 
if (p->piece > piece) 

break; 

} 

/* insert a new entry (fanout from small ->large) */ 

new = new_libc_piece_value_rec 0 ; 



new->piece 

/* set default value */ 

new->f all_delay__intercept 
new->rise_delay_intercept 
new->f all__nonpaired_twin 
new- > r i s e_nonpa i red_twin 
new->f all j>in_resi stance 
new- >risejpin_resi stance 
new->f all_wire_resistance 
new->rise wire resistance 



= piece; 

= tech_lib->def ault_fall_delay_intercept ; 
= tech_lib->def ault_rise_delay_intercept; 
= tech_lib->def ault_f all_nonpaired_twin; 
= tech_lib->def ault_rise_nonpaired__twin; 
= tech_lib->def ault_fall__pin_resistance; 
= tech__lib->default_rise_pin_resistance; 
= tech_lib- >def ault_f all_wire_resistance ; 
= tech_lib- >def ault_rise_wire resistance; 



if (prev NULL) 

lib__t iming- >piecewise 
else 

prev->next = new; 
new->next = p; 
p = new ; 



new; 



insert_value : 
switch (field) 



case 


1 


p->f all_delay_intercept 


= value; 


break; 


case 


2 


p->f all_nonpaired twin ~ 


value ; 


break; 


case 


3 


p->f all_pin_resistance = 


value ; 


break; 


case 


4 


p->f all_wire_resistance 


~ value; 


break; 


case 


5 


p->rise___delay_intercept 


= value; 


break; 


case 


6 


p->rise_nonpaired_twin = 


value; 


break; 


case 


7 


p->rise__pin_resistance = 


value ; 


break ; 


case 


8 


p->rise_wire_resistance 


= value; 


break; 


default 


: assert (0) ; 
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/* = = := = = = = = = = = = = = = = =.== = = ::, = ::,^ = ===3 = = ^ = = = ^ = = ^^^ = = ^^^^ = ^^^^ */ 

publi c 

f loat_buf f er *libc_tiTne_copy_f loat_buf ( 

float_buffer *fbuf) 
{ int size; 

float_buffer ^result; 

if (fbuf == NULL) 

return (NULL) ; 
size = sizeof_f loat_buf f er (fbuf ) ; 
result = get_f loat_buf f er (size) ; 
memcpy (result, fbuf , size*sizeof (float) ) ; 
return (result) ; 

} 

/* fQ3^ both timing and power */ 

public 

int libc__time_f ind_template ( 

text_buffer *name, 

libc_lu_table_template_rec *head, 

libc_table_val_rec *tbl) 
{ libc_lu_table_template_rec *p; 

int i,code =0; /* not found */ 

if (strcmp (naine, "scalar") 0) { 

tbl->_tbl = NULL; /* scalar table */ 

code =1; /* found */ 

} 

else { 

for (p=head;p!=:NULL;p=p->next) { 

if (strcmp (p->tt_name, name) ==0) { 
tbl->_tbl = p; 
code =1; /* found */ 

/* copy default index */ 

if (p->index_l != NULL) { 

tbl->indexl = get_f loat_buf f er (sizeof_f loat_buf f er (p->index_l) ) 
for (i=0;i<sizeof_f loat_buffer (p->index__l) ;i++) 
tbl->indexl [i] = p->index 1 [i] ; 

} 

if (p->index_2 i= NULL) { 

tbl->index2 = get__f loat_buf f er (sizeof_f loat_buf f er (p->index_2) ) 
for (i = 0;i<sizeof_float_buf fer (p->index__2) ;i++) 
tbl->index2 [i] = p->index_2 [i] ; 

} 

if (p->index_3 1= NULL) { 

tbl->index3 = get_f loat_buf f er (sizeof_f loat_buf f er (p->index_3) ) 
for (i=0;i<sizeof_f loat_buf fer (p->index_3) ;i++) 
tbl->index3 [i] = p->index 3 [i] ; 

} 

break; 

} 

} 

} 
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f ree_text_buf f er (name) ; 
return (code) ; 

} 

/* */ 

public 

void libc_time_values_handle ( 

libc__table_val_rec *timing_tbl, 

libc_f loat_list_list *f_lists) 
{ int sizel , size2 , size3 ; 

if (timing_tbl->_tbl == NULL) { /* scalar table */ 

if (f_lists->next i= NULL | | f_lists - >v_list- >next 1= NULL) { 
libcerror ("only one value is allowed in scalar table."); 

} 

tiTning_tbl->scalar__val = f_lists->v_list->fvalue; 
f ree_libc_f loat_list_list (f_lists) ; 

} 

else { 

sizel = (timing_tbl->indexl) ? sizeof_f loat_buf f er (timing^tbl- >indexl) 

0; 

size2 = {timing_tbl->index2) ? sizeof_f loat_buf f er (timing_tbl- >index2 ) 

0; 

size3 = (timing_tbl->index3) ? sizeof__f loat__buf f er ( tiTning__tbl - >index3 ) 

0; 

timing_tbl - >values = 
libc_util_float_lists3buffer (sizel, size2 , size3 , f lists) ; 
} 

} 

/* = = = =.== = == = = = = == = = = = = ==: = = = = = = ^^ = = = =: = = = = = =: = = ======.=.= = = = :=== */ 

public 

void libc_tiTne_handle ( 

int table__type) 
{ libc_table__val_rec **tbl; 

switch (table_type) { 
case 0 : 

f ree_libc_table_val_rec (lib_timing_tbl ) ; 

lib_timing_tbl = NULL; 

return; 



case 


1 


tbl 


= & (lib__tiTning- 


>cell rise) ; 


break 


case 


2 


tbl 


= & (lib_timing- 


>cell_f all) ; 


break 


case 


3 


tbl 


= & {lib__timing- 


>rise_propagation) ; 


break 


case 


4 


tbl 


= & (lib_timing- 


>f all_propagation) ; 


break 


case 


5 


tbl 


= &{lib timing- 


>rise_transition) ; 


break 


case 


6 


tbl 


= & (lib_timing- 


>f all_transition) ; 


break 


case 


7 


tbl 


= & (lib_timing- 


>rise_constraint) ; 


break 


case 


8 


tbl 


= & (lib_timing- 


>f all__constraint) ; 


break 



} 



f ree__libc_table_val__rec (*tbl) ; 
{*tbl) = lib_timing_tbl; 
lib_tiTning_tbl = NULL; 

} 
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/* 

public 

void libc_time__power_handle ( 

int table_type) 
{ libc_table_val_rec **tbl; 

switch (table_type) { 



case 0 : tbl = & (lib_int j>ower->f all_power) ; break; 

case 1 : tbl = & (lib_int__power->rise j>ower) ; break; 

case 2 : tbl = & (lib_int_power->power) ; break 

} 

f ree_libc_table_val_rec (*tbl) ; 
{*tbl) = lib_timing_tbl; 
lib_timing_tbl ^ NULL; 

} 

/* = = = = = = = = =:=:=: = =: = = =: = = = = = = ^ = = = = = = = = = =: = = = = =: = = = = = =. = = = = = =: */ 



public 

void libc_time_minimum_period ( 

int is__high, 

float value) 
( libc_minj>ulse_width_rec *mpp, *nTnpp; 

if (lib_j)in->min_pulse_width == NULL) { 
ii^PP = new_libc_Tnin_jpulse_width_rec ( ) ; 
nmpp->when = NULL; 
lib_j)in->min_j)ulse_width = nmpp; 

} 

else { 

for {mpp=libjpin->min_j)ulse_width;mpp->next;mpp=mpp->next) ; 
if (mpp->when NULL) 

nmpp = mpp; 
else { 

nmpp = new_libc_min_pulse_width_rec 0 ; 
mpp - >next = nmpp ; 

} 

} 

if {is_high) 

nmpp->constraint__high = value; 
else 

nmpp->constraint_low = value; 

} 

/* ================================================== */ 
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/*========= 



#include "libc_def.h" 
/* 

public 

void libc_util_name_listl ( 

YYSTYPE *r, 

YYSTYPE *rl) 
{ 1 ibc_name_l i s t_rec *np ; 

np = new_libc_name_list_rec 0 ; 
np->name = rl->string; 

r->name_list .head = r->name_list ._tail = np ; 

/* 

public 

void libc_util_name_list2 ( 

YYSTYPE *r, 

YYSTYPE *rl, 

YYSTYPE *r3) 
{ libc_name_list_rec *np; 

np = new_libc_name_list_rec 0 ; 
np->name = r3->string; 

r->naTne_list .head = rl->name_list . head; 
rl->name_list ._tail->next = np; 
r->name_list ._tail = np; 

} 

public 

void libc__util_f loat_listl ( 

YYSTYPE *r, 

YYSTYPE *rl) 
{ libc_f loat_list_rec *vp; 

vp = new_libc_f loat_list_rec 0 ; 
vp->fvalue = rl->real_val; 

r->float_list .head = r->float list, tail = vp; 

} 

/* 

public 

void libc_util_f loat_list2 { 
YYSTYPE *r, 
YYSTYPE *rl, 
YYSTYPE *r3) 
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{ libc_f loat_list_rec *vp; 

vp = new_libc_f loat_list_rec {) ; 

vp->f value = r3->real_val; 

r->f loat_list .head = rl->f loat_list . head; 

rl->f loat_list ._tail->next = vp; 

r->f loat_list ._tail = vp; 

} 

public 

void libc_util_f loat_list_listl ( 

YYSTYPE *r, 

YYSTYPE *rl) 
{ libc__f loat_list_list *vp; 

vp = new_libc_f loat__list_list 0 ; 
vp->v_list = rl->float__list .head; 
r->float_list_list .head = r->float list list, tail 
} " " ~ 

/* 

public 

void libc_util_f loat_list_list2 ( 

YYSTYPE *r, 

YYSTYPE *rl, 

YYSTYPE *r3) 
{ libc_f loat_list_list *vp; 

vp = new_libc_f loat_list_list 0 ; 
vp->v_list = r3->float_list .head; 
r->float_list_list .head = rl->float_list_list .head; 
rl->f loat_list_list ._tail->next = vp; 
r->f loat_list_list ._tail = vp; 

} 

public 

any_unit_rec *libc_util_unit ( 

float unit) 
{ any_unit_rec *up; 

up = new_any_unit_rec 0 ; 
up->unit = unit; 
return (up) ; 

} 

public 

f loat_buf f er *libc_util_f loat__list2buf f er ( 

libc_f loat_list_rec *f_list) 
{ int i, size, is_inc=l, error=0; 
libc_f loat__list_rec *p; 
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float_buffer *fbuf; 
float vl,v2; 

if (f_list NULL) 
return (NULL) ; 

for {p=f_list , size=0 ;p i =:NULL;p=p- >next , size++) ; 
fbuf = get_f loat_buf fer (size) ; 
if (size >= 2) { 

if (f_list->f value >= f_list- >next->f value) 

is_inc = 1; 
else 

is_inc = 0; 

} 

for (p=f_list,i=0;p!-NULL;p=p->next, i++) { 
fbuf[i] = p ->f value; 
if (i > 0) { 
if (is_inc) { 

if (fbuf [i-1] <= fbuf [i] ) { 
vl = fbuf [i-1] ; 

V2 = fbuf [i] ; 
error = 1; 

} 
} 

else { 

if (fbufEi-l] >= fbuf[i]) { 
Vl = fbuf [i-1] ; 
v2 = fbuf [i] ; 
error = 1; 

} 
} 

} 

} 

f ree_libc_f loat_list_rec (f_list) ; 
if (error) { 
char msg [256] ; 

sprintf (msg, "Value %G sliall %s tiian value %G in 
index" ,vl, is_inc? "larger" : "smaller" , v2) ; 
libc_error (msg) ; 

} 

return (fbuf ) ; 



/* ^1 

public 

f loat_buf f er **libc_util_f loat_lists2buf f er ( 

libc_float_list_list *f_lists) 
{ int i, j , sizel, size2 ; 

libc_f loat_list_list *q; 

libc_f loat_list_rec *p; 

float_buffer **fbuf; 

for (q=f_lists, sizel=0;q!=NULL;q=q->next, sizel++) ; 

fbuf = (float_buffer **) get_ptr_buf f er (sizel) ; 

for (p=f_lists->v_list, si2e2=0 ;p ! =NULL; p=p- >next , size2++) ; 
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if (sizel == 1) { /* ID array */ 

fbuf[0] = (float_buffer *) get_f loat_buf f er { size2 ) ; 
for (p=f_lists->v_list, j=0;p ! =mJLL;p=p->next , j ++) 
fbuf [0] [j] = p->fvalue; 

} 

else { /* 2D array */ 

for (q=f_lists, i=0 ; q 1 =NULL;q=q->next , 1++) { 

fbuf[i] = {float_buffer *) get_f loat_buf f er (size2 ) ; 
for (p=q- >v_l i s t , j = 0 ; p 1 =NULL ; p=p - >next , j ++ ) 
fbuf [i] [j] = p->fvalue; 

} 

} 

return ( fbuf ) ; 



/* ^1 

public 

f loat_buf f er *libc_util_f loat_lists3buf f er ( 
int sizel, 
int size2, 
int sizes, 

libc_f loat_list_list *f_lists) 
{ int i,j,}c; 

1 ibc_f loat__l is t_l i st *q ; 
libc__f loat__list_rec *p; 
float_buffer *fbuf; 

q = f_lists; 
p = q->v_list; 

if (size2 0) { /* ID array */ 

fbuf = (float_buf fer *) get_float_buffer (sizel) ; 
for (i=0;q!=NULL;q=q->next) { 

for (p=q->v_list ;p ! =MULL;p=p->next , i++) 
fbuf [i] = p->fvalue; 

} 

} 

else if (size3 == 0) { /* 2D array */ 

fbuf = (f loat_buf fer *) get_float_buf fer (sizel * si2e2) ; 
for (1=0; i<sizel; i++) { 
for (j=0; j<si2e2; j++) { 

fbuf [i*size2+j] = (p l = NULL)? p->fvalue : 0.0; 
p = p->next; 

if (p == NULL q != NULL) { 
q = q->next; 

p = (q 1= NULL)? q->v list : NULL; 

} 
} 

} 

} 

else { /* 3D array */ 

fbuf = (float_buf fer *) get_float_buf fer (sizel * size2 * size3) 
for (i=0;i<sizel; i++) { 
for (j=0; j<si2e2; j++) { 
for (k=0;k<size3;k-f+) { 
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fbuf [ (i*si2e2+j ) *size3+k] = (pi= NULL)? p->fvalue : 0.0; 
p = p->next; 

if (p == NULL && q != NULL) { 
q = q->next/ 

p = {q 1= NULL)? q->v_list : NULL; 

} 

} 
} 

} 

} 

f ree_libc__f loat_list_list (f_lists) ; 
return (fbuf) ; 

} 

public 

libc_bool_opr_rec *libc_util_bool_opr { 

libc_bool_type__E op_type, 

int value) 
{ libc_bool_opr_rec * bor; 



bor = new_libc_bool_opr_rec ( ) ; 
bor- > type = op_type; 
if (op_type == ID_B) 

bor->u. id_name ^ (text_buffer value; 
else 

bor ->u. value = value; 
return (bor) ; 

} 

/* = = = = = = == = = = =.= = = .. = = = = = = = = =: = = :==.=: = = = = == = = :.= == = :=^^^^^=^^ */ 



public 

void libc_util_wire_load_f anout ( 

int fanout, 

float length, 

float ave_cap, 

float std_dev, 

int no_of_net) 
{ libc_f anout_length_rec *new, *p, *prev; 

new = new_libc_f anout_length_rec 0 ; 

new->fanout = fanout; 

new->length = length; 

new->area = lib_wire_load->area; 

new->capacitance = lib_wire_load->capacitance; 

new- >resi stance = lib_wire_load->resistance; 

new->ave_cap = ave__cap; 

new->std_dev = std_dev; 

new->no_of_net = no_of_net; 

/* sort by fanout (small- >large) */ 

for {p=l ib_wi re_load - >f anout__length , prev=NULL ; p ! =mJLL ; prev=p , p=p - >next ) { 
if (p->fanout >= new->fanout} 
break; 

} 
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new->next = p; 
if {prev == NULL) 

lib__wire_load- >f anout_length = new; 
else 

prev->next = new; 



public 

void libc_util_wire_load_table ( 
int fanout, 

int field, /* 1: length, 2: capacitance, 3: resistance, 4: area */ 
float value) 
{ libc__f anout__length_rec *new, *p, *prev=NULL; 

/* search first */ 

for (p=l ib_wi re_load- >f anout_length ; p ! =:NULL ; prev=p , p=p - >next ) { 
if (p->fanout == fanout) 

goto insert_value ; 
if (p->fanout > fanout) 

break; 

} 

/* insert a new entry (fanout from small ->large) */ 

new new_libc_f anout_length_rec 0 ; 
new->fanout = fanout; 

new->area = lib_wire_load- >area; /* default value */ 

new->capacitance = lib_wire_load->capacitance; /* default value 



new->resistance = lib_wire_load- >resistance ; 
if (prev == NULL) 

lib_wire_load->f anout_length = new; 
else 

prev->next = new; 
new->next = p; 
p = new; 



/* default value */ 



insert_value : 
switch (field) { 
case 1 
case 2 
case 3 
case 4 
default 



} 



} 



p->length = value; break 
p->capacitance = value; break 
p->resistance = value; break 
p->area = value; break; 
assert (0) ; 



public 

void libc_util_wl_select ( 
float min_area, 
float max_area, 
text_buffer *name) 
{ libc_wire_load_rec *p; 

libc__wire_load_f rom_area_rec *wap, *prev, *new; 
char msg [100] ; 



A-LIBC-242 



libc utile 



for (p=tech__lib->wire_load;p 1 =NULL;p=p- >next ) { 
if (strcmp {p->wl_name,name) == 0) { 
free_text_buf fer (name) ; 

new = new_libc_wire_load_from_area_rec {) ; 
new->min_area = min_area; 
new- >max_area = max_area ; 
new->_load_inodel = p; 

/* sort by area (and each group shall not overlap) 

for (wap=lib_wire_load_sel->area_table,prev=NULL; 
wap!=NULL; 

prev=wap, wap==wap->next) { 
if (wap->Tnin_area >= min_area) 
break; 

} 

new->next = wap; 
if (prev == NULL) 

lib_wire_load_sel->area_table = new; 
else 

prev~>next = new; 
return; 

} 

} 

sprint f (msg, "wire load model (%s) not f ound. " , name) ; 
libcerror (msg) ; 
free_text_buf fer (name) ; 

} 

/* 

/* ./ 
/* ^1 
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#ifndef 


YYSTYPE 




#def ine 


YYSTYPE int 




#endif 






#def ine 


K_LIBRARY 


258 


#def ine 


K_ANPPP 


259 


#def ine 


K_BNS 2 60 




#def ine 


K_COMMENT 


261 


#def ine 


K_CU 2 62 




#def ine 


K_DATE 


263 


#def ine 


K_DM 2 64 




#def ine 


K_IPSM 


265 


#def ine 


K_LPU 2 66 




#def ine 


K_MWE 2 67 




#def ine 


K_MDL 268 




#def ine 


K_NP 269 




#def ine 


K_NT 270 




#def ine 


K_NV 271 




#def ine 


K_NTIDF 


272 


#def ine 


K_NPPP 


273 


#def ine 


K_PT 2 74 




#def ine 


K__PU 275 




#def ine 


K_POPSRC 


276 


#def ine 


K_POPV 


277 


#def ine 


K_PIPV 


278 


#def ine 


K_PRU 279 




#def ine 


K_RC 2 80 




#def ine 


K_REVISION 


281 


#def ine 


K__SIMULATION 


#def ine 


K_TU 2 83 




#def ine 


K_UPP 2 84 




#def ine 


K_VU 2 85 




#def ine 


K_WLF 2 86 




#def ine 


K__DCLP 


287 


#def ine 


K_DCP 2 88 




#def ine 


K__DCC 2 89 




#def ine 


K_DFO 2 90 




#def ine 


K_DF1 2 91 




#def ine 


K_DRO 2 92 




#def ine 


K__DR1 2 93 




#def ine 


K_DEC 2 94 




#def ine 


K_DFDI 


295 


#def ine 


K__DFNT 


296 


#def ine 


K_DFPR 


297 


#def ine 


K__DFWR 


298 


#def ine 


K_DFWE 


299 


#def ine 


K_DFWI 


300 


#def ine 


K_DFL 3 01 




#def ine 


K_DIOPC 


302 


#def ine 


K DIOFR 


303 


#def ine 


K_DIORR 


304 


#def ine 


K_DIPC 


305 


#def ine 


K_DXF 306 




#def ine 


K_DIR 3 07 




#def ine 


K_DMC 3 08 




#def ine 


K_DMFO 


309 


#def ine 


K^DMT 310 




#def ine 


K_DMU 311 
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#def ine 


K_DMP 312 




#def ine 


K_DOC 313 




#def ine 


K_DOPC 


314 


#def ine 


K_DOFR 


315 


#def ine 


K_DORR 


316 


#def ine 


K_DPL 317 




#def ine 


K__DPP 318 




#def ine 


K_DRFC 


319 


#'def ine 


K_DRRC 


320 


#def ine 


K_DRDI 


321 


#def ine 


K_DRNT 


322 


#def ine 


K_DRPR 


323 


#def ine 


K_DRWR 


324 


#def ine 


K_DRWE 


325 


#def ine 


K_DRWI 


326 


#def ine 


K__DSC 32 7 




#def ine 


K_DSF 32 8 




#def ine 


K_DSR 32 9 




#def ine 


K_DWL 33 0 




#def ine 


K_DWLA 


331 


#def ine 


K_DWLC 


332 


#def ine 


K__DWLM 


333 


#def ine 


K__DWLR 


334 


#def ine 


K_DWLS 


335 


#def ine 


P_CR 336 




#def ine 


P__CF 337 




#def ine 


P_CLP 33 8 




#def ine 


P_CP 33 9 




#def ine 


P_DC 34 0 




#def ine 


P_DF 341 




#def ine 


P_DR 342 




#def ine 


P_FDI 343 




#def ine 


P_FPR 344 




#def ine 


P_FP 345 




#def ine 


P__FT 346 




#def ine 


P_FWR 34 7 




#def ine 


P_FWE 34 8 




#def ine 


P_FWI 34 9 




#def ine 


P_HF 350 




#def ine 


P_HR 351 




#def ine 


P_IP 352 




#def ine 


P_IF 353 




#def ine 


P_IR 354 




#def ine 


P_MP 355 




#def ine 


P_MPWH 


356 


#def ine 


P_MPWL 


357 


#def ine 


P__NF 358 




#def ine 


P__NR 359 




#def ine 


P_PC 3 60 




#def ine 


P_PP 361 




#def ine 


P_RF 3 62 




#aef ine 


P_RR 3 63 




#def ine 


P_REF 3 64 




#def ine 


P_RER 365 




#def ine 


P_RDI 366 




#def ine 


P_RPR 3 67 




#def ine 


P_RP 3 68 
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#def ine 


P_RT 


369 


#def ine 


P_RWR 


370 


#def ine 


P_RWE 


371 


#def ine 


P_RWI 


372 


#def ine 


P_SF 


373 


#def ine 


P__SR 


374 


#def ine 


P_SKF 


375 


#def ine 


P_SKR 


376 


#def ine 


P_SLF 


377 


#def ine 


P_SLR 


378 


#def ine 


P_WC 


379 


#def ine 


P_WR 


380 
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